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July 9, 19265. 


ATTENTION: 8K BASIC USERS 


We have discovered that using a line in a Basic Program that is 
longer than 51 characters causes the LIST command to malfunction, 
i.e. the LIST Command will only list the program up to and includ- 
ing. that line. The list stops after printing that line containing 
5i characters. This does not affect the rest of the program. The 
program can be run, changed, etc. We are currently working on a 
solution to the above problem. As a temporary fix, do not have 
lines longer than 51 characters in a Basic Program. 


Very truly yours, 
IMSAI 


Том. f аи 


Marva Van Natta 
Manager 
General Services 





MVNJV/tt 


14860 WICKS BLVD., SAN LEANDRO, CALIFORNIA 94577 
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Tn ASSOCIATES, АС. 


Dear Registered ТИЗАТ Owner, 


We are releasing our initial version of 8X BASIC to you now. The 
final, and improved, version will be available in about five months. 


We will be happy to send you the improved, final version o£ 8К 
BASIC when it becomes available at no additional charge to you. 
Just fill out and mail the form below | to us. 





Yes, I want the final 8K BASIC when it is avaialable at по 


additional charge to me. 


NAME | 





ADDRESS 





CITZ | | STATS 212 








ТЕШЕУЕСМЕ ( ) 





еле» 








IMSAI 8K BASIC 


Loading (Paper tape version) 


олтоов>р 


. Code the loader in from the front panel starting at HEX 2000 


Reset the system and put address to HEX 2000 
Mount the paper tape in the reader starting anywhere in the leading rubout codes 


. Set system to run 


Hit STOP, RESET, RUN : 
Hit the CR key and type: NEW CR 


. If your memory has WRITE PROTECT switches, turn the first 8K bytes off. 


Resetting Basic 


+= m O O шо > 


. If system is hung up a reset may be required 

. Hit STOP, RESET, RUN 

. Туре а carriage return 

. System types ‘READY’ 

. Program will not be lost. You may list, run or modify it. 


If ROM version is used and power is frist turned on you must type the command, NEW 
before any other action 


Entering a program from the keyboard 


A. 
B. 
C. 


m M 


Type the command, NEW to delete the previous program 

Enter the program one line at a time, type a CR after each line 

Each statement must be numbered, but they need not be typed in order. The program will 
be listed or executed in line number order 

A line may be deleted by typing its line number followed by a CR 

A line may be replaced by typing the same line number followed by the updated statement 
and CR 


. A line may be inserted by typing a new, unique line number, followed by the statement and 


CR 


. A line may be retyped if a mistake is noticed before the CR is typed by typing control C 


The last character may be deleted by typing the RUBOUT key. A back slash, the deleted 
character, and another back slash will echo. Now type the correct character and continue 


Entering a program from paper tape 


A. 
B. 


Type the command NEW to delete the previous program 
Mount the paper tape in the reader staring anywhere in the Rubout Leader 


C. Type the command TAPE 
Manually start the reader 


D. 





VI. 


VII. 


VIII. 


8K Basic 
Page 2 


Listing the program 


A. 


Type the command LIST 


Punching the program in paper tape 


A. 
B. 


Type PUNCH | 
The program will Бе punched and listed 


Running the program 


A. 
B. 


C. 


Type the command: RUN 

The program will run to completion or until an error is encountered, or a STOP statement 
is executed 
The program may be terminated by typing: Control C 

Input statements will prompt you with a question mark. Type the value and a CR. Multi- 
ple values may be input separated by commas. 

Errors are-of the form: XX ERR @ 1111 where XX is the error code, апа 1111 is the line 
number. (Immediate commands have a line number = ????) 


Errors and Debugging 
Code Meaning 


DA 


NX 
OV 


SN 
ST 


UL 
RT 


A. 


B. 
C. 


Out of data. A READ statement tried to read another DATA value and there were 
not more DATA statements 
FOR with no matching NEXT or NEXT with no matching FOR 


Arithmetic overflow or underflow or divide by zero. The range: + 9.99999E-64 2 x 2 


+ 9.99999E+63 has been exceeded 
Syntax error: unidentified statement or required syntax rules have been violated 
Execution stack error (internal) Either: 
1. BASIC was not properly initialized (NEW was not first command after loading or 
power up) 
2. The program is too large 
3. The BASIC interpreter has been destroyed and must be re-loaded 
Undefined line number іп ап IF... THEN, GOTO, ог GOSUB statement 
Encountered RETURN and no GOSUB was in effect 
After the error has been corrected, (if possible), the program may be restarted by typing the 
command: GOTO 1111 where 1111 is the line number in the error message 
Variables may be inspected by using the PRINT (or?) command 
Variables may be modified with the LET or INPUT commands 

















XI. 


~ XII. 


8K Basic 
Page 3 

Immediate commands 
A. The following statements are commands if they are typed without a line number. They will 

be executed immediately and control will return to the command input routine (except for 

GOTO ога TRUE IF statement): PRINT (or?), INPUT, READ, LET, GOTO, & IF... THEN 
B. The IF command may be typed without the THEN clause to test variables. For example: | 

If А = B СА. If you get: UL ERR @ 2222 then the relation is true otherwise it is false. 
Statement Syntax 

> 
А. 1? saxa «expr» THEN line 
а 
=~ 

B. READ «list of variables separated by commas» 
C. DATA «list of values separated by commas » 
D. PRINT [< expr or literal enclosed in double quotes > E ; E 

(or ?) 
E. INPUT «list of variables separated by commas» 
F. [LET] < variable» = V 
G. СОТО  <line> 
H. GOSUB «line» 
I. RETURN : 
J. FOR «variable» = <ехрг> ТО <expr> STEP Сехрг>] 
К. NEXT < variable > 
L. REM <comment> 

(ог!) 
М. STOP 
N. END 
О. ОМ <ехрг>’СОТО «list of line numbers > 
P. ОМ <ехрг> 60508 < list of line numbers > 
О. DIM «var dimension(s)> 
R. DEF ЕМ var > (ага(5)) = <ехрг (arg(s))> 
S. CHANGE | <аггау пате > <string маг» 

<string маг > <аггау name > 

Function available 


RND, SQR, ABX, INT, SGN, TAB, NUM, SIN, COS, TAN, СОТ, АТМ, EXP, LOG, АЗС, CAR, 
INSTR, LEFT, LEN, MID, RIGHT, SPACE, STR and VAL 


Known Problems 
1. ЗОВ does not work for arguments less than 1 








COMPATIBILITY WITH BASIC-PLUS 


Features 


1. 
2. 


Line numbers range from 1 to 9999 only 
Multiple lines per statement not allowed 


Statements 


READ - Same 

DATA - Same 

PRINT - TAB() not available, literals in double quotes only 
INPUT - Same 

LET - Single variable assignment only 
GOTO - Same 

GOSUB - Same 

RETURN - Same 

FOR - Same 

NEXT - Same 

REM - Same 


. STOP - Same 


END - not required, acts as REM 
ОМ... СОТО - Same 

ОМ... 60508 - Same 

DIM - Same 

DEF - Same 

CHANGE - Same 























0000 


· 0002 


0003 
0002 
0011 


2000 
2002 
2004 


2006: 


2008 
200А 
200C 


200F 
2012 
2014 


- 2027 


201A 
2018 
201Е 


201Ғ 


2022 
2023 
2026 
2027 


202А 
2020 
202Е 
202Е 
2030 
2033 


2036 


ЗЕСЕ 
0303 
325217 
D303 
3511 
D302 


316720 


CD5120 
ЕЕЗА 

C20F20 
CD3720 


CD3720 


CD3720 
77. 
23 

05 
C22A20 
C30F20 


76 


Do OI ENDE CU EEUU eue ac —À d 


ча за че ao че чә че чә че зе "e e 


“ә 


THEN PRESS 


ORG 


EQU 
EQU 
EQU 
EQU 


Ct ~ 


ОАР: MVI 
OUT 
MVI 
OUT 
MVI' 
OUT 
LXI 


ООРІ: 


с ДТ мр зе че 


GO THROUGH 
À RECORD 


Ct че эз we ча 


QOP2: CALL 
MOV 
INX 
DCR 
JNZ 
JMP 


БОЁ: НІТ 


‘STOP қ p 


20008 


2 
3 
> 
11Н 


THE LOADER BEGINS HERE 


THEN 


*** ЗК BASIC LOADER REV 1. *** 


TO USE THIS LOADER FIRST KEY IT IN; STARTING . 
AT LOCATION 20008. : 
ON THE TELETYPE, SET THE ADDRESS SWITCHES TO 20008, 
'RESET', 
THE TELETYPE READER SHOULD START AUTOMATICALLY .- 


MOUNT THE TAPE IN THE READER 


'EXAMINE', AND 'RUN'. 


NOTE: FOR REASONS OF BREVITY, THIS LOADER DOES NOT 
CHECK THE CHECKSUMS ON THE TAPE. 


:TELETYPE DATA PORT 
;TETELYPE STATUS PORT 
¿TELETYPE READY ВІТ 
zREADER ON ВІТ. 


А,ОСЕН  ;СЕТ МОРЕ СОММАМО 

TTO ISSUE IT 

А, 17Н ; СЕТ COMMAND 

TTS {ISSUE IT 

А, RON СЕТ "Х-ОМ' CHAR 

ЖҰТ 5ТАКТ THE READER Uu t 
6,PEND+10 ;SET UP THE STACK 


-INCH 


LOOP] 


GETBT О 


GO THROUGH THIS LOOP ONCE FOR EACH RECORD 


? СЕТ A CHARACTER 
318 ІТ А СОБОМ 


;WAIT FOR COLON 


СЕТ THE COUNT 


:SET FLAGS 

;BRANCH IF EOP RECORD 
:ЕГ5Е, PUT COUNT INTO B REG 
‚СБТ HI BITES OF ADDR 

; INTO H 

“СЕТ LO BYTE OF ADDRESS 

з INTO Т 

;GET TYPE BYTE AND IGNORE 


THIS LOOP ONCE FOR EACH DATA BYTE IN 


GETBT 
М,А 


СЕТ A DATA BYTE 
;STORE IT ` ` 
;BUMP ADDRESS 
;DECREMENT COUNT 
¿DO IT AGAIN 3 
:GO GET NEXT RECORD 


\ 


(15% зо зво зе зе ~e 


IS RETURNED IN 


THIS ROUTINE READS TWO CHARACTERS FROM 
THE TAPE, AND ASSEMBLES THEM INTO A BYTE, WHICH 
THE A REGISTER 


г 


2037 CD4420 ЕТЕТ: -CALL INDIG GET A DIGITI д 
203A 87 ADD A ¿SHIFT IT ONE ВІТ 
203B 87 ADD A ; TWO BITS 
203C 87 ADD A ; THREE BITS 
203D 87 ADD A ; AND FOUR BITS 
203E 57 MOV D,A ;SAVE IT IN D 
203F CD4420 CALL INDIG ;GET ANOTHER DIGIT 
2042 B2 ORA D ОВ IN LAST DIGIT 
2043 C9 | RET ;AND RETURN 
; THIS ROUTINE READS А HEX DIGIT FROM THE 
; TAPE. NOTE THAT IT DOES NO VALIDITY CHECKING. 
, VR З 
2044. Ср5120 INDIG: CALL INCH СЕТ A CHAR FROM THE ТАРЕ 
2047 РЕЗА CPI 9551 ; СНЕСК FOR МОМЕВТС 
2049 FA4E20 JM IND1 ¿SKIP IF NUMERIC 
204C C609 ADI 9 sELSE FUDGE, SO 'А'-'Р' => 4A - 
204E ЕбОЕ IND1: ANI СЕН ;MASK OFF LO 4 BITS © 
2050 C9 RET AND RETURN 
: THIS ROUTIEN READS A CHARACTER FROM TEE TELETYPE 
: PAPER TAPE READER ` (@ 
? š 
2051 DB03 ТМСН: IN TTS :СЕТ TELETYPE STATUS 
2053 E602 ANI TTR ; WAIT TILL READY 
2055 CA5120 ` 77 INCH 
2058 DBO2 IN TTY ? СЕТ THE CHAR 
205A Е67Е ANI ТЕН ¿KILL THE PARITY BIT 
205C C9 RET s 
205D PEND — EQU $ 
0000 END 
agga ЗЕ СЕ 03 93 ЗЕ 17 03 63 ЗЕ 11 рз 82 31 67 29 CD 
2818 51 29 FE ЗА C2 ОҒ 29 СР 37 28 87 СА 36 29 47 СО 
база 37 са 67 CB 37 29 GF 60 37 28 CD 37 20 77 23 85. 
2238 C2 2A 24 C3 ДЕ 29 76 CD 44 29 87 87 87 87 57 CD 
2048 дд 28 B2 C9 CD 51 28 FE ЗА FA ДЕ 28 C6 99 ES ЯҒ 
2959 C9 DB 83 Еб 82 CA 51 29 DB 82 Еб ТЕ C9 











IMSAI 8080 вк BASIC VER*1.3 


ALLR 


осоо 
9000 
O3 
0005 


0008 


0008 
0009 


осв 


ос 2 


боор 


0019 


0010 
0011 
0013 
0014 
0013 


. 9913 


0018 2 
ОСІВ 
оо1с 2 
0010 


0020 


` 0023 


00258 
оо2р 


OBJECT 


210024 


ЗЕРА 
C34900 


CSOE1C 


114820 
обоа 
C3ZDAC 


LINE 





~ ws э, че = = 


ТАЗ. 
ВАЗТС: 


š 
5 
RSTI: 


OPCD OPRNDS 


ORG 
LXI 
MVI 
МР 


ORG 


LEAVE IN 


о 
Нн.вамеі026 


А, 250 
ІМІТІ 


8 


REG А. 


10: 06: 16 15 APR 1975 PAGE 2 
COMMENTS 
; POINT FIRST: POSSIBLE END OF КАМ 


,GET MODE SET 
; GO CONTINUE 


Е 
; SKIP CHARS POINTED BY Н.І. UNTIL NON-BLANK, 


i 


RST2: 


; 
* PRINT: 


RSTS: 
3 


е 
г 


ээ 


е 
# 


MOV 


CPI 
RNZ ` 


INX 
JMP 


ORG 


а, М 


е ғ 


16 


COMPARE STRING AT (H,L.) ТО 
RETURN IF EQUAL (THRI Х7007 ІМ 0, Е) OR OM FIRST МОТ EGUAL 
ONLY THE FIRST THREE CHARS NEED ВЕ EQUAL 

IGNORE ALL SPACES 


PUSH B 


MVI 
RST 


в.о 
1 


дах р 


JMP 


LXI 
MOV 
INX 
МР 


око 


LXI 
MVI 


JMP 


COMP2 


ORG 24 
"ХХ ERR е NNNN^ 


Н, IOBUF 


м, В 
H 
ЕККОК 


40 


В, FACC 
В, 4 
СОРУН 


i LOAD THE BYTE АТ (H, L.) 
; TEST IF BLANK 

; RETURN ІР МОТ 

i POINT NEXT 

i LOQP 


STRING AT (0, =) 


; SAVE в, Q 


` $ INIT COUNT 


i SKIP SPACES ` 
; GET CHAR TO MATCH WITH 
; CONTINUE ELSEWHERE 


; POINT BUFFER 

; MOVE HI, CHAR 

; POINT NEXT 

i CONTINUE ELSEWHERE 


"РО LOAD THE FLOATING POINT ACCUMULATOR WITH THE 4 BYTES АТ (Н, 


РОТМТ FLOAT АСС 
; ВУТЕ COUNT 


iGO MOVE IT 
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IMSAI 3080 ФК BASIC VER=1. 3 


ALLUR OBJECT 


0020 


0030 
0023 
9935 


ооза 


0033 
соз? 
воза 
0938 
GOST 
9530 
GUF 


114320 
0504 
C3241C 


ЕЗ 


7Е 


23 
ЕЗ 
05 
Зе 


87 


ООЗЕ 1600 


0041 


#24500 


0044 LAFF 
0045 19 
0447 01 
0043 C? 


LINE 


0097 


0098 ; 


0093 
0100 
0101 
0102 
0103 
0104 
0105 
0105 
0107 
0103 


| 90109 ; 


0110 
0111 
0112 
01:3 
0114 
9115 
0115 


-0117 


0113 
0119 
0129 
0121 
0122 


TAG 
ORG 
STORE THE 


P 
. 
ë 
ГА 
^ 


ORG 


RST?: 
; INCREMENT 


ЕЗТ?А: 


PCD OPRNDZ 


42 


10:06:35 15 АРВ 1274 


COMMENTS 


FLOATING POINT ACCUMLILATOR AT (HL? 


D, FACC 


B,4 
COPYD 


52 


; POINT FLOAT ACC 
+ BYTE COUNT 
i GO MOVE IT 


H.L BY BYTE АТ (SP), RETURN TO (32)+1 


А, M 


РОБЕ 


? ПЕТ RETURN ADDR IN H, L 


; GET THE INCREMENT 
;POINT TRUE RETURNM 
¿PUT BACK TO STACK 
; SAVE D. = 

i PUT IN LOW 

i ТЕСТ SIGN 

; DEFAULT POSITIVE 


BRIF + 


i ELSE, NEG 

i BUMP H, L. 

; RESTORE D, Е 
; RETURN 


2 








IMSAI 3030 


АОК 


| 0042 


0048 
сол: 
004Е 
0052 
0933 
зд 
OOS 
00535 
OOS? 
OOSA 
0035 
3952 
СОЕ 
бод) 
CSS 


0044 . 


0057 
оса 
дог» 
0062 
0040 
0070 


0073 3. 


0076 
0072 
"907 
OQ7F 
0082 
0023 
0035 
(ANI? 
0038 
ФОЕ 
OOP) 
0023 
(25 


ов.есТ 


изоз 

ЗЕ17 
303 

010004 

ТЕ 

СЕ 


3? 
2230231 
328231 
26621 
326321 


~ LINE 


0124 
2124 
0122 
0127 
0123 
0129 
0130 
0131 
0132 
0132 
0134 
0135 
0135 
0137 


0128 


01:2? 
0140 
0141 
0132 
0193 


0144 
0143. 


Wa dei 


> 325021 


214422 
Уж 
118210 
2165621 
окоз 
202%12 
9608 
115С10) 
CLI241C 
3503 


0145 
0147 
0143 


9149 


0130 
0151 
0152 
0133 
0134 
0155 
0135 
0157 


. 0158 


9152 
0160 
0161 
01622 


9163 


0164 
0155 
0165 


aK BASIC VER-1. 3 


10: 05; 4? PS 1775 PAGE 4 
TAG ОРСО OPRNDS COMMENTS 
; INITIALIZATION ROUTINE 525 
; DETERMINE MEMORY SIZE. (START АТ 9K AND TRY 1K INCREMENTS Т 
; SETUP POINTERS FOR STACK, DATA, AND PROGRAM 
; INIT 510 BOARD 
2 
INITi: OUT ТТУзі ; WRITE TO 510 
MVI А, 23 i СММО: ОТВ, ENASLE TANZ, & RCVR, 
OUT ТТУ ;WRITE TO SIO 
LXI В, 1024 ;1K INCR а 
ІМІТ2: MOV AM СЕТ A BYTE FROM МЕМОВУ 
| СМА ; COMPLEMENT 
MOV ма ; REPLACE” 
CMP M ; TEST IF PAM /RDM/EDD 
ЗМІ  INIT2 : SRIF OUT OF RAM 
cma ; RE-COMPLEMENT | 
MOV. МА РУТ ORIG ВАСКО 
DAD B i POINT NEXT BLOCK 
JNC  INIT2 ; БООР 
IMIT2: Сен. ; SET STACK POINTER Tü ZNO ЈЕ мем 
LXI 8,-254 ; ALLOW 264 BYTES COR DYNAMIC ыса 
DAD B ;ADD TO ADDRESS 
SHLD DATAB i SAVE ADDR OF START OF бать 
XRA A БЕТ A ZERO INA 
PLUSH PSU ;SET STACK 1 LEVEL DEEP WITHOUT > 
рар SP ;SP TO HL а 
SHLD 3TACK ; SAVE BEG OF STACK | 
STA FORNE ; CLEAR FOR/NEXT TABLE 
STA TAPES ; SET NOT FROM ТАРЕ | 
STA OIMSW ; SET NORMAL EXER 
STA OUTSW ; SET NOT OUTPUT SUPPRESS 
STA ILSW ; SET NOT INPUT LINE 
LXI Н,БЕСРЯ i СЕТ ADDRESS OF BEGIN OF PROG AR 
MOV MA ; CLEAR BYTE 
LXI 0, МАМОХ ¿POINT АМО СТАЗ 
LXI H, ТАМОХ ; POINT UPDATED стз 
MUI B3 ; LOOP СТА 
CALL СОРУО ; ба MOVE IT 
MVI В,З ` LOOP СТА 
LXI D,NRNDX ;POIMT BACK 
CALL COPYD ; бо MOVE IT 
MVI M3 ; INIT RND SW 


° 
At 

















IMGAI 2080 ЭК PASIC VERs1.2 


РЕПА OBJECT 


003 


0033 ZICALE 
соев COPLILY 
ООЗЕ 2А7С21 
оса ҒЕОЗ 

оса С2реоо 
сббе 0803 

0043 25902 

сода CIBC 
0080 СОЄЗ11 
DOHO CSPEOO 
СОЮЗ 327721 


LINE 


0158 
0153 
0170 
0171 
Q172 
0173 
0174 
0175 
0176 
9177 
9172 
92179 
0130 
0131 
0132 
0133 
0134 


TAS РЕП ПРЗМОЗ 
RDY: ERJ з 
р PRINT “READY” 
; TTY KEYBOARD (LIKE CR) 
LXI Н, READY 
CALL TERMM 
RDY1: LOA  яМОЗА 
u QNI 3 
ANZ бетем 
IN TTY +1 
ANT 2 
ANZ | RDYZ 
TALL RND 
„М?  RDYií 
RÜYZ: STA RNUSW 


10:07:19 15 АРВ 1276 PAGE 5 


COMMENTS 


ТЕ INIT, THEN GENERATE RENDOM MUMBERS UNTIL SOME ACTION ОМ 


; POINT READY MSG 
;60 PRINT IT 

; GET INIT зы 

: TEST IF 3 (INIT? | . 
; BRIF NOT | 

i GET TTY STATUS 

; ISOLATE &XRDY 

; BRIF PERSON (3 READY. 


ФЕТ А RANDOM NUMEER 


;LQOP 
i SET SWzNOT INIT; AMD RANDOMIZE 
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IMSAL 3080 3K BASIC VER»1.3 10:07:23 15 APR 1275 PAGE ^ 
ADOR OBJECT. LINE TAG ОРСО ОРЕМОЗ COMMENTS 
(WBS 0185 GETOM: EQU з 
0137 ; ; 
° 0138; 
0189 ; COMMAND INPUT ROUTINE 
0150 ; ; 
0191 ; READ A LINE FROM THE ТТУ 
0192 ; IF STARTS WITH NUMERIC CHARACTERS, ASSUME IT-3 A BASIC STAT 
0173 i IF NOT, THEN IT IS EITHER Ам IMMEDIATE STATEMENT, ОЯ А COMM 
0124 ; 
0085 ЗЕЗА 0133 MVI %,7:7 ; PROMPT *& ON SET FOR SN 
сова 325921 019% STA  EDSW ; SET MODESEDIT 
0088 2А8021 0197 LHLD STACK i GET STACK ADDRESS 
СОВЕ F9 0178 SPRL. і SET REG SP 
СОБЕ С00513 0199 CALL ТЕРМІ ? СЕТ А LINE 
0002 СПСО:А 0200 CALL, PACK iGO PACK THE NUMBER INTO В, С 
OOCS 73 0201 MOV AB ; GET HI BYTE ЈЕ LINE NUMEER 
OOCó ВІ 0202 ORA C i PLUS LOW BYTE 
(8327 CASOOL 0203 JZ EXEC ; BRIF EXEC STATEMENT 
доса CS 0204 PUSH B 3 i SAVE LINE чумеєд 
· боса 11ЕП?21 0205 LXI 0, МЕД +1 ;POINT SAVE AREA 2 
ООСЕ ЕЗ 0295 XCHG ?FLIP/FLOP 
СОСЕ 70 0207 MOV м, 8 ; PUT LO LIME 
0900 23 0203 INX MH ; POINT NEXT 
сюр: 71 0209 "ov мс РІЛ LO LINE 
ооз 23 9219. INX H POINT NEXT 
0033 9503 0211 "VI B, в МЕТ COUNT . = 
боп {A --- 0212. EDIT1: LDAX D ? СЕТ A BYTE : RE 
928» 77 0213 ‘MOY м,» ; PUT IT DOWN ; 
QGh7 04 0214 INR в ; COUNT IT 
осла 23 0215 INX H ; POINT NEXT 
ann? 13 0215 INX 8 ; DITTO 
CUDA 37 0217 ORA ñ i TEST BYTE JUST MOVED | 
оопа 520500 92:3 JAZ EDITE > LOOP 
ооп 78 — 021? мом ALB ; GET COUNT 
| ODF SAFC 0220 STA  IiMMSD i STORE TRE COUNT 
QOS? Ci 0221 РОР В ; GET LINE NUM 
0083 214522 0222 LXI H.BEGPR ; POINT BEGINNING OF PROGRAM 
Qogó 7E 0223 EDIT2: MOV AM ; СЕТ LEN CODE 
СОЕ7 ЕЗ 0224 PUSH H ; SAVE ADDR 
осез 87 0225 GRA A. ; TEST IT 
ОО? CALFOL 0225 JZ EDITS i BRIF ЕМО 
ООС 23 0227 ENX н ¿POINT НІ LINE 
GOED 7E 2223 MOV A.M LOAD IT 
QOEE ВЗ 0229 сме В i COMPARE 
(WEF 081201 0230 JC EDITS ; BRIF LOW 
$072 C21FO1 0231 ЗМІ  EDITS ; EDITS SRIF HIS 
COPS 23 0232. INX H ;POINT LO LINE 
005 7E 0233 MOV ADM :.060 IT 
OGF7 B9 0235 СМР C ; COMPARE 
боғз DAÀ1201 0234 C EDITA ; BRIF LOW 
ООРВ С2ЗЕСА 0235 ANZ EDITS ; BRIF HIGH 





~ 


IMSAI 3080 3K 


ALUR 


OOFE 
wopr 
9109 
0191 
0102 
0104 
0105 
0195 
0107 
0108 
0108 
“010; 
0108 
‚ 0112 
0113 
9115 
0115 
‚ 0117 
90112 
2113 
9,10 
ө 
0127 
9123 
9127 
. 0123 
0124 
0120 
9126 
@12Е 
0120 
0123 
0134 
4423 
0136 
01437 
0133 
013? 
. 913A 
91358 
9140 
0141 
0142 
0145 
0145 
01349 
0144 
0140 


OBJECT 


FEO4 
CAB500 
ЗЕ 
0600 
2АҒА21 
54. 

59 

99 
225821 
сі 

1A 


21FC21 
45 

Cozpic 
CIBA 


BASIC VER=1. З 


LINE 


0237 
9233 
9232 
9240 
924: 
0242 
0243 
9244 
0245 
0245 
9247 
0248 
0249 
0250 
0231 
02352 
0253 
2254 
0255 
0255 
0257 
o25a 
0253» 
0250 
0261 
0252 
0253 
0264 
0265 
0256 
0257 
0268 


0267 EDITS: 


0270 
0271 
0273 
0273 
0274 
0275 


0275. 
· 0277 


9273 
0279 
0230 
0231 
0232 
0233 
0284 


ТАЗ 


EDITS: 


EDITS: 


EDITS: 


EDITS: 


EDIT7: 


OPCD 


GET LEN NEXT STMT 


. LOOP 


i TEST ТЕ DELETE 


10:08:02 15 АРВ 1275 PASE 7 
COMMENTS 


; POINT BACK 
; ТО BEGIN 

; COPY ADDR 
; TO DE 

i GET ñ ZERO 
i GET LEN 

; POINT NEXT 3TMT 
; TEST IT 

; BRIF END 

; SET LENGTH 

; ELZE MOVE LINE 


i СЕТ ADDR 

; ZERO HI LEN 

? GET LO LEN 

; COMPUTE ADDR NEXT CINE ` 
i LOOP 

; PUT NEW ADDR TO H, Ú 

i МРАК END . 

i AND UPDATE ADDRESS 

‚СЕТ LEN OF INSERT 





; BRIF IS 

; SET LO LEN 

; ZERO HI LEN 

; ЗЕТ ЄМО OF PROG 

; COPY TD 

: 0, Е | 

i DISP (ЕМ OF INSERT 
i НРОВТЕ END PRINT 

; GET AUDR 

; GET А ВУТЕ 

3 COPY IT 

i POINT PRIOR 

; DITTO 

i GET HI ADDR 

i COMPARE | 

i BRIF HI EQUAL 

; BRIF мат LESS 

i ВЕТ Là ADDR 

i СОМРОВЕ 

i BRIF NOT LESS 

i POINT FORWARD : 
¿POINT INSERT 

i GET LENGTH 

;GO MOVE IT 

i: GO GET ANOTHER COMMAND 


Ns 
е. 





ІМЗАЇ 3050 SK RASIC VERL. 3 10:03:70 15 APR 1275 РАЈЕ 3 


COMMENTS 





ADUR OüGJECT LINE ТАЗ PCD OPSNOS 
0:50 9226 EXEC: ЕО) 8 
о і 
233; 
- | : оба» і 
| 02260 ; DECODZ COMMANDO ІМ INBUFF Š 
29: ; EXECUTE ІР FOSSISLE ` 
9222 ; THEN GOTO GET NEXT COMMAND 
0293 ; 
0294 ; | 
0159 325521 0225 STA MULTI ; ВЕЗЕТ МАСТІ SW 
0153 327021 0225 STR FNMÜD RESET FM TYPE 
біла ЗС : 0227 INR А ; СЕТ А ONE 
0157 -225721 9223 STA RINT i BET ІММЕОТАТЕ MODE 
Oiga 210520 9229 LXI M, IOBUF ; POINT SMT А 
0130 Lire. 9309 LXI 0. IMmeD iPOINT NEW AREA 
0150 7E 0301 EXEC: МОУ А, н i ET А BYTE 
0151: 12 0392 STAX 0 : PUT TO (Ü, L) 
0142 13 0393 INX Ü ; POINT NEXT 
9153 22 0204 INX н, ; DITFTO 
0154 87 2205 RRA A ; TEST ВУТЕ 
0155 C2360 0306 «ЧІ ЕХЕС i CONTINUE 
0152 21401Е 9307 € ХІ H NULLI eec NO LINE NUM 
2 0198 227Е21 9308. SHLD LINE SAVE ADDR 
Hise 21ЕС21 0309 LXI H.IM"ED ; POINT START OF Erno 


9171 6532002 0310 


JMP RUNS ;G0 INTO RUN PROCESSOR 


IMSAI 3030 SK BASIC VER=t. З 10:02:03 ІЗ АРК 12745 PAGE > 


ADDR OBJECT LINE TAG 0263 OPRNDS COMMENTS | 
0174. 0312 SAVE: ERU з 
0313 ; 
0214 ; SAVE COMMAND. TURN THE PUNCH ОМ 
031$ ; THEN LIST THE PROGRAM 
0316 ; LAST LINE ІЗ "КЕУ" COMMAND. TO RESET ON INPUT 
А 0317; | * 
0174 3502 0313 MI A2 ; SET зи 
0175 225621 031? STA TAPES ; а PUNCH : 
N 0179 ЗЕ12 9320 HVT A,12 ; GET 002 (PUNCH GN) 
Є 0178 С02719 0522 CALL TESTO : G0 WRITE IT 
М. 917Е COB41A 0322 CALL HDRTL ;GO PUT HEADER 
0134 635102 0323 Je ^ LIST ` ; 50 PROCESS AS IF LIST 


"oc | (МЗАТ 3020 3K BASIC VERw!. З 10:09:15 15 APR 1975. роза 10 


әй OBJECT LINE TAG ОРСО OPRNDS COMMENTS 
9134 0323 ТАРЕ: EQU $ 
. 0325 і E 
| 0327 ; ТАРЕ COMMAND 
. 0223 + SET SWITCH = № INPUT ECHO, THEN TURN ON PAPER TAPE READER 
0329 3 CONTINUE UNTIL ^KEY^ COMMAND 
ç | 0339; š 
0184 3501 0331 МУТ А, | i SET ЗЧ 
0135 325621 озз2 STA TAPES ; TURN ІТ ON 
0139 ЗЕ11 9333 МТ £85.17 ‚СЕТ DCI (READER СМ) 
01989 CD2719 0334 СА. TESTO ; GQ WRITE IT 
VISE CBOG 0333 ЧМР  GETCM ; CONTINUE 





IMSAI 3080 3K BASIC ЧЕВ=1. 3 


АВ OBJECT LINE TAG ОРСП ОРЕМО5 
0121 9337 KEY: со) з 
0338 г.“ 
я 9339 ; KEY COMMAND d 

0340 ; RESET SWITCH, TURN READER 
0341 ; 4 

0191 АҒ 6242 XRA A 

0192 326621 0343 STA TAPES 

0125 212Е1Е 0344 LXI H,PCHOF 

0128 CD911? 0345 CALL ТЕРММ 

отов сзезоо 0345 JMP ROY 


ІМСАЇ 3030 2K BASIC VER=1. З 


ОРСО ОРЕМО5 


ADUR OBJECT LINE TAG 
біз 0348 МЕН: ЕСЫ $ 
0349 ; ы 


0320 ; NEW COMMAND 
0351 ; DELETE DLD PROGRAM 
0352 ; CLEAR OLD DATA VALUES 


0253; 
OLJE 214522 | 0354 | LXI Н, ВЕСРЯ 
Q1A1 AF 033 XRA A 
01я:2 77 0236. MOV м, а 
OLAS 22FA21 0347 SHLD РАЗВЕ 
ОА 28е321 03353 LHLD DATAB 
біа» 77 90359 “OV Ма 
сіра C225600 0340 „МР GETOM 


IMSAI 3080 ӘК BASIC УЕВ=1. 3 _ 


Аййй OBJECT 


LINE ТАЗ ОРСО СРАМОЗ 
ФАН 0352 FREZE: ко) 5 

0263 i 

0244 ; FREE Command 

03435 i 

0346 ; 
OLAB. 27821 0367 но DATAS 
0180 ЕВ 0343 XCHG 
0181 2АРА21 0359 LHLD PROGE 
0184 78 0370 мом А.Е 
91565 95 9371 зив L. 
біне SF 0372 МОУ ово 
оїн7 7A 0373 . MOV 0 

` 0188 9C 0374 $58 н 

OLB? 57 0273 мм OA 
0184 CD471D 0375 CALL. SINFL 
0100 210520 0377 LXI H,IOBUF 
ЗІСО СОҒЗОВ 0373 CALL FOUT . 
O1C3 3400 037? MVI мо 
o1C5 СО?” озго CALL, TERMO 


о1сз C3B5Q0 331 „ме SETOM 


` ; CONTINUE 


10:09:22 13 APR 1975 PAGE 11 


COMMENTS 


üFF 

i CLEAR А 

;REZET 3H 

POINT DC3/0C4 (ROR ОРР/РСН OF?) 


i GO WRITE TO TTY 
; CONTINUE 


10:09:27 15 APR 1275 PAGE 12 
COMMENTS | 


@ ` 
. | ^ i 
¿POINT BEGINNING ЈЕ 2205 

СЕТ А ZERD | E к 


i MARK PROGRAM NULL 


; MARK END + 

; POINT BEGINNING OF DATA 
; DELETE ALL VARIABLES 

i GO NEXT COMMAND 


10:09:25 15 APR 1975 PAGE 13 


COMMENTS 


COMPUTE AMOUNT OF AVAILABLE STORAGE (EXCLUDING DATA AREA) 


; GET DATA BEG ADDRESS 
;PUT IN DE 

; GET PROGRAM END ADDRESS 
iLO ADDR TO REG а 

; SUBTRACT 

; SAVE IT : 

НІ ADDR YG REG А 

; SUBTRACT 

; SAVE IT 

; G9 FLOAT 0, Е 

; POINT BUFFER 

; GO CONVERT ТО OUTPUT 
;MARK END 

;GO WRITE IT 














men‏ س 





[PSAI 3030 SK BASIC VER-!. 3 


BUR OG.ECT 


СВ 


ои 32722: 
2108 2255371 
Ol 77 
OLBE 115C1D 
оір 217421 
GLEZ 0509 
OLE4 CD241C 
01Е7 214422 
QLER 225621 
ок" 23 
OLER 225121 
ЕЕ СЗ9ЕО2 
ОјЕЗ 215521 
ULF? 7E. 
"0183 B7 
О1Е? CAO402 
OIF 3500 
QiFE 2843721 
0201 632002 
320% 256121 
0207 SE 
9203 1509 
Q20A 19 


0208 226121 


020g 346721 
921: 87 
9212 0234600 
9215 7Е 
9215 87 


0217 САКТОВ 


0214 23 
0218 227Е21 
021E 23 
O21F 23 
2220 СЕ 
0223 221220 
0724 CDOEI1A 
0227 11Е01Е 
022A 1A 
0228 87 


0222 CA4BOZ 


LINE 


2333 
0334 


0333 ; 


озь 


337 i 
0333 ; 


93239 
0520 
0391 
0392 
0323 
0324 
2574 
0596 
0337 
0373 
0577 
9500 
950: 
0402 
0403 
5404 
0405 
0406 
9407 
0403 
0403 
9810 
9411 
9812 
0413 
9414 
9413 
0415 
0417 
7 0419 
‚0519 
2420 
2421 


0422. 


0423 
0424 
0425 
9425 
0527 
0423 
2422 
9430 
9431 
0432 
9433 


ТАС 


PED ОРАМОЗ 


кимем: EGU + 


, 


RUNI: 


IMSAI 3080 SK BASIC ублі, 3 


ADOR ОРЕСТ 


0238 232492 
9238 251220 
024Е С20ЕО6 


LIME TAG 


9424 
0533 
0435 
0427 
0433 
0437 
0450 
0441 
0442 
0443 
0444 
0445 
0444 


0457 RUNS: 


0548 
0449 
2450 
9851 


0452 RINT: 


0453 


ОРСО OPRNDS 


10:09:43 15 AFR 1275 РАЈЕ 14 


соммемтз 


; RUN PROCESSOR, GET NEXT STATMENT. АМО SXECUTE IT 
¿ IF IN ІММЕДІАТЕ MICE: 


THEN RETURN ТО ЗЕТСММО 


: CLEAR А REG 

; TURN OFF EDIT море 

; RESET SWITCH 

SINIT THE FOR/NZEXT TABLE 

INIT TRE ВМО 2225 

„ет ADDR OF DATA РОО. 

АЯ IT 

; POINT INIT RND Poems 

ІРОІМТ RECEIVE 

i LOOP СТА 

¿ONE THEM . 

¿POTNT | PRIOR TD CEGIM. 

; RESTORE DATA STMT POINTER 

; POINT TO START 

; SAVE IT 

: GJ PROCESS ІТ 

a POINT MULTIPLE SWITCH 

i GET SH 

TEST IT Ж 

; BRIF NOT ON 

i ELSE, RESET ІТ 

; ВЕТ ADDRESS 

:50 PROCESS REMAIN 

; ELSE, СЕТ 308 OF PREV STMT 

зет LEN СОСЕ 

; CLEAR HIGH SYTE ЈЕ ADIR 

;INCR STMT POINTER 

i SAVE IT 

i СЕТ RUN TYPE 

8 TEST ІТ к 

i BRIF IMMEDIATE MONDE 

i ВЕТ LEN CODE re 
“+ TEST IF END 

BRIF IS 

i POINT LINE NUMBER 

i SAVE ADDR 

i POINT 290 ЗУТЕ 

; POINT 157 РОМ BYTE 

i SKIP BLANKS 

i ЗАМЕ ADDR 

150 SER ЈЕ CONTROL-C JA 5 

; POINT TO TABLE | 

; GET FIRST BYTE OF LIT 

6 TEST ТЕ ЕМО OF TABLE 

i BRIF IS 


10: 10:33 15 APR 1974 PASZ 15 
COMMSMTS 


ЕСЕТ ADDRESS oF счмо 

? GG COMPARE 

i БАТЕ NOT EQUAL. 

$ SAVE H, L. 

; FIND END OF LIT 

; POINT NEXT BYTE 

LORD IT 

;LOW BYTE TOL 

i POINT NEXT BYTE 

i СОАО 1T 

; HIGH BYTE TO H 

i JUMP ТО PROPER ROUTINE 
i FINO END OF LIT 

i POINT NEXT 

$ DITTO - : 
,POINT FIRST SYTE NEXT LIT 
;LODP 

i RESTORE H, L FOINTER 

i ASSUMS IT^S VET 3TMT 


AMOR овшЕст 


9231 


0251 СЕ 
0252 110000 
0245 ЕЗ 
0255 224020 
0259 21729? 
O25C 224220 
02532 ЕЗ 
0250 87 
0251 2А8102 
02744 CDCO1A 
0257 SO 
0243 59 
026?» ЕЗ 
0256 2254020 . 
OZAN 224220 
0270 ЕВ 
0271 СЕ 
0272 2220 
0274 523102 
0277 23 
0273 СЕ 
0279 СОСО1А 
0270 40 
0270 59 
027Е 224220 
0281 2143522 
0234 СООЕЛА 
0237 7Е 
0238 37 
029? саАЕЗОЗ 
0236 0503 
028Е 47 
022 23 
0290 23 
0271 2844020 
0224 ЕЗ 
9295 7E 
0295 БА 
0227 0460402 ° 
0294 С2А402 
0290 23 
0275 7= 
О29Е 23 
0220. 38 


IMSAI 3080 3K 
ALUR OBJECT 


OZAL ПА0402 
02244 Е 

і 02565 2054220 
O2A2 ES 
Ола? 7Е 
225» БА 
слав CAB402 
OT Re 027203 
0281 С28Е02 
024 23 
022% 7Е 
о2нь 28 
02н7 ВВ 
2223 CABEOZ 
0223 DZF208 
О2ЕЯ 110520 
0261 60001? 
0204 7E 
0203 12 
0265 13 
2267 Zs 
02с3 os 
0207 C2C402 
OCC Е 
0200 502919 
0210 Et 
0201 633402 
02014 33 
021% 1600 
0207 19 
9203 23 
о? 23 
оспа с23%02 


LINE 


0455 
0435 
0457 
база 
0452 
0450 


28951 


9452 
0452 
0454 
0445 
0455 
9457 
0453 
0459 
0470 
0471 
0472 
0473 
0474 
0474 
9475 
9577 
0573 
047? 
0480 
0431 

0432 
0433 
0434 
0425 
0485 
0437 
0433 
0432 
0490 
9491 

0422 


` 0493 


04?4 
0425 
9425 

9427 
0428 
9499 
0500 
05091 

050$ 


У УУ 
Q 2: 


_ 9594 


0505 


ЕРТЕ grum >. < іж? oT 


TAG 3223 


ІЗТ: EGU 


u; 


№ 
; 
; 
; 
; 
; 
г 


RST 
LXI 
XCHG 


SHLD 
СХТ 
CALL 
MOV 
ÜRA 
JE 
51873: Sut 
мом 
INX 
XIZHG 
CHLO 
XCHG 
MOV 
CMP 
JC 
МІ 


CISTI1: 
LIST2: 


DC X 
СМР 


BASIC VER-1. 3 


LIME 


0204 
0307 
0508 
030? 
0510 
9511 
0312 
0513 
0515 
0315 
9515 
0317 
0513 
051$ 
0320 
0521 
322 
9523 
0525 
9323 
0525 
0527 
9323 
0572 
0520 
0531 
2532 
0533 
9534 
23525 
0335 
0537 
0533 


тає 


„1574: 


LISTS: INX 


LISTA: 
LIST7: 


(1573: 


оОРЕМОЗ 


s 


LIST PROCZSSOR 
CUMP THE ZOURCE PROGRAM TO ТТУ GR PAPER ТАРЕ 


СІМЕН 
Н. СЕСРЕ 
TSTCC 
А, м 

ғ 

END 

3 


u SAVE IT 


^w. әс”. тт ae ғғ br гъза 18 


соммемтз 


i SKIP ТО NON а АМК : 3 
;GET A ZERO IN D я 

Е FLIP то н, L. 

; ЗАУЕ ГТ 

ізет HIGH NUMBER (M H, L. 

i SAVE IT 

? FLIP BACK 

i TEST IF 201 . 
ӘРБІР IT [S 

OPY NUMBER TO OL 
i SAME 

¿FLIP 10 HL 

i ЗАМЕ ІТ 

; ЗАМЕ 

; RESTORE H, L 
;SKIP.TO NON АМК 
$ TEST IF COMMA 

i BRIF МОТ. 

i POINT NEXT 

; SKIP TO NON=3LANK 
i ELSE 50 GET THE NUMBER 
; COPY ТП 

i D, A 


ІР ANY 


i POINT BEGINNING OF PANGRAN 

i GO SEE IF CONTROL-C OR CZNT2OL- 
i GET LEN CODE | 

; TEST IF END Of PROGRAM 

; BRIF END ЈЕ РОМ 

;SUBTRAZT THREE 

i SAVE LEM 

¿POINT HIGH 2YTE ЈЕ LINER 
‚РЫР я, ТО 5,2 

i GET LOW LINE То TEST 

i RESTORE я, L. 

; GET LOW BYTE OF LINE NUMBER 
¿COMO WITH че. 

; BRIF LESS 

; BRIF NOT EQUAL 

; POINT NEXT 

ЗЕТ NEXT. SYTE OF LINES 
IPOINT BACK 

iCOMP LOW 3YTZS 





(OU 


10: 11:27 IS APR 1275 PASE 17 


COMMENTS 


? RRIF LESS 

i SAVE M, i ІМ Bee 

i GET HIGH LINE FOR TEST 
POET LINE BYTE 
; COMPARE HIGH ВУТЕЗ 
;: DRIF EQUAL 

i BRIF HIGHER 

; GO AROUND 

;POINT NEXT 

i СЕТ NEXT BYTE 

; POINT BACK 

; COMPARE LOW ВУТЕЗ 
;BRIF EQUAL 

; BRIF HIGHER 

; POINT SUFFER AREA 

; CONVERT LINE МЈМРЕВ 
ЗЕТ А BYTE 

PUT IT TO SURFS: 
¿POINT NEXT ВЕЕР 

i POINT NEXT PROG 





; DECR сте 

ЦООР " 

; BAVE ML ADDR : ( 

60 TYPE ІТ . S. S 
; RETREIVE + ADOR | 

; CONT INUJE | 

¿PUT LEN IN E 

CLESR 0 


i FOINT NEXT STMT 
i POINT NEXT 

; POINT LEN CODE 
00 LIST IT 


0 LLL AOA(OAOhAE ELE A ?AABALEAAGNSSSEAm)""——————————— 








IMSAI 8080 Як BASIC VERxÍ. 3 10: 11: 527 15 APR 1975 PAGE із 


РОК OBJECT 
. 9210 


0200 210020 
ОЈЕЧ 7E 
Ө2Е1 87 
02Е2 C2ESO2 
02ЕЗ СЗобое 


тмза: 3080 эк 
Ашин OBJECT 
o2E38 


ОЗЕЗ AF 
O?E? 326921 
Ф2ЕС 326721 


QZEF COSC1A 
Q2F2 CDCOiR 
О2ЕЗ СОьСіВ 
0223 214522 
О?ЕВ 7E 
О?ҒС B7 
OZFD CA9418 
0300 23 

201 7E 
озо? 38 
0302 ре:воз 
0306 23 
0307 7E 
2393 28 
0209 B? 
собе раївоз 
0300 2941 
өзіо 28 
0311 226123 
0314 АР 

215 328521 
0313 С20Е02 ` 
оз:в 28 
SIC ЗЕ 
310 1500 
` 031F 19 
0320 - 


LINE TAG 


BASIC VEREA, 


LINE TAG 


0551 GOTO: 


0352 o 
9553 i, 
0554; 
0543 ; 
0555 
0557 
0553 
0552 ; 
9550 i 


STAT: 


0551 GOTAL: 


0262. 
0553 
364 


0555 60702: 


0366 
0557 
0553 
0552 
9570 


0533 сатоз: 


ОРТО СРЯМОЅ COMMENTS 
EQU $ 


AT STATEMENT FOLLOWING STOP GR AT STATEMENT WHEN CONTR 


LXI He LINEN iPOINT LINE NUMBER СЕ LAST STOP / 
MOV АМ ОЕТ 137 CHER 
ова A i TEST ТЕ IMMED CMMD 
JNZ GOTO ; BRIF NOT 
ЖР LET ? ВЕТЕ WAS. 
3 10:12:06 15 АРА 1974 PAGE 1? 
OPCD OPRNDS COMMENTS 
EQU 3 

SOTO NNNM 5 
ха а CLEAR REG А 
STA EDSW : RESET IMMED MODE (ІР ІТ Wes SET 
STA RUNSH ¿AND RUN ТУРЕ 
CALL. NOTED ; ERROR IF END-OF-LIME 
CALL. РАСК ; GO GET LINE NUMEER IN В.С 
CALL EQL i ERROR IF NOT END-OF-LiNE 
LXI н, РЕСРЯ .4 POINT BEGINNING ОЕ PROGRAM 
MOV а,м ? GET LEN | 
оға A Е ; TEST IF END OF PROGRAM 
JZ ЕВЕ i BRIF UNDEFINED STATEMENT 
IN B | ; POINT NEXT 
MOV ALM СЕТ THE HIGH LINE NUMBER 
CMP 3 i TEST WITH DESIRED 
JC 50т63 ; BRIEF LOW 
INX H ; POINT NEXT BYTE 
MOV ASM ; GET LOW LINE NUMSER 
DCX ^H ; POINT BACK 
СМР С i TEST WITH WANTED 
JIC GOTO3 ; BRIF LOW 
JNZ ERR ? BRIF LINE MISSING 
DCX н PPOINT TO START СЕ зтмт 
SHLD зтчг : SAVE ADDR 1 
ха А з GET А ZERO у 
STA MULTI $ TURN СЕР MULTIPLE STATS 
ме  RUNZ : 150 PROCESS THE STATEMENT 
DCX H POINT START OF STAT 
MOV EM i GET LENGTH 
мит DO i ZERD HI BYTE 
peo D . ; COMPUTE NEXT AODR 


«МР — GOTOZ ; LOOP 





© 


IMSAI 5080 2K BASIC ЧЕН=1. 3 10:13:00 15 APR 1976 PAGE 20 





рипв OBJECT LINE ТАЗ ОРСО ОРЕМОЗ COMMENTS 
0323 ° OSS? RESTO: EQU S 
9590 ; 
0591 i 
0592 ; STMT: RESTORE 
0593 ; | - . 
0323 спъва 0594 CALL EOL | ; ERROR ТЕ МОТ £ND-OF-LINE& 
(1325 214422 0525 LXI М, ВЕСРК i POINT 1 BEFORE START ОР PROGRAM 
0329 22Ғ521 05?6 | SHLD ПАТАР ; FORCE NEXT DATA TO BE АТ START 
320 С2Ғ401 0597 «МР RUN 1060 NEXT ЗТМТ 
TMSAI 2080 SK BASIC VER=1. З 10:13:05 15 АРА 1975 PAGE 21 
Ашк OBJECT LINE TAG ОРСП OPRNDS ‚ COMMENTS 
93527 0523 RETUR: SEA 3 Ж 
0500 ; 
0691 i 
0502 i STMT: RETURN 
0503 i 
соте CDA531A 0604 | САМ. EOL с ERROR IF NOT E£MD-OüF-LIME ~ 
32 Fi 0505 РОР PSW ; РОР TRE STACK и 
-. 0233. БЕБЕ 0508 СРЕ 255 |.  .  4TEST ТЕ GOSUB IN EFFECT = Ф: 
03355 срања 0697 JNZ АТЕАА | С + BRIF ERROR қ ( 
03223 EL 06503. РОР H . | ; GET RETURNED STATMENT ADDRESS 
033? 225121 050? SHLD STMT | ; RESTORE 
ОЗЗС Еі Q510 POP H i СЕТ ZNDL INE VALUE 
0330 225321 | 0611 SHLD ENDLI ; RESTORE : 
0340 Е! | 0612 РОР PSW +627 MULTI SH VALUE 
0341 225521 9513 STA MULTI ; RESTORE 
0344 C3F401 9614 JMP RUN i CONTINUE (АТ STMT FOLLOWING GIS 








IMSAI 3050 ЭК BASIC ЧЕКа |. 3 10:13:14 











15 АРА 1275 PASE 22 
ALOR OBJECT LINE TAG ОРСО OPRNOS COMMENTS 
0247 0515 GOSUB: EQU s 
0517 ; 
0513 ; 
т 0519 ; STMT: GOSUB NNNN 
0347 срає sae 
Па | 052 CALL мотед ; ERRI - E 
03429 CDCO14 0522 СА. РАСК и ыо 
0340 CD681à 0623 CALL EOL ; ERROR IF NOT ENO-OF=LINE 
0350 ЗА6521 | 0624 GOSUL: LDA MULTI ; GET SW SETTING 
0353 FS 0625 PUSH PSW ; SAVE ON STACK 
0354 246321 0625 LHLD ЄМСОЇ i GET ADDR OF END OF STMT 
0257 ES 0627 PUSH H SAVE ONE STACK 
0353 246121 0628 LHLD STMT i GET STATEMENT ADDRESS 
0358 ES 0629 : умовні 
- PUSH H i ЗАМЕ RETURN ADDRESS IN STACK 
025 ЗЕРЕ 0620 MVI А, 255 i MARK AS GOSUB m зи 
Mr. S. PUSH РН i ЗАМЕ STATUS 
34 222 0632 LXI H.BEGPR ;POINT START ЈЕ PROGRAM 
. 0362 C3FBO2 0629 JMP  GOTOZ 7350 LOOKUP LINE AND 3RANCH 
IMSAI 3030 20 BASIC VER=1. 3 10:13:25 15 APR 1974 раст 2 
— 2 0 АВ OBJECT LINE TAG OPCD OPRNDS COMMENTS 
. 0355 0535 PRINT: EGU з 
š Q535 i 
9637; : 
0538 ; ЗТМТ: PRINT .... 
9539 i: : - 
s 0440 ; s 
0355 AF 0541 XRA А 1 CLEAR REG А 
0365 3227421 0642 STA РАЗЫ ; SET SWITCH 
0363 110520 0543 PRIN1: LXI 0, IOBUF ; POINT BUFFER 
024C CF 0544 RST 1 ;SKIP TO NEXT FIELD 
0350 C22CO3 0445 JMP PRING ; GD AROUND 
0370 3EFE 0545 PRINZ: MVI А, 254 ; SET CODE = NO CR/LF 
0272 12 0647 STAX D ;PUT TO BUFFER 
0373 ES 0643 PUSH H : SAVE H, L 
0274 CD8919 0649 CALL TERMO : GO PRINT IT 
0377 Ei 0650 POP H ; RESTORE H, L 
0373 ©365503 0651 JMP PRINT ; RECURSIVE ТО NEXT FIELD 
0372 3AF421° 0552 PRINS: LDA PRS .4 GET SWITCH 
027€ B7 ` 0553 ` ORA а ; TEST IF STMT ENDED WITH , 
037Е C2F401 0654 JNZ RUN i BRIF IT DID 
0382 347371 | 045% LUA  QUTSW ; СЕТ CONTROL-20 Su 
0335 BT 0656 ова А ; TEST IT 
958% CC2219 0657 2 CRLF ;CR/LF IF NOT SUPPRESSED 
0289 C2F401 05 JMP RIJN ; CONTINUE NEXT STMT 
озас CDS114 0559 PRINS: CALL TSTEL ; TEST IF END OF STMT 
озар CAFCO3 0660 JZ PRINC ; BRIF IT ІЗ 
0392 FE2C 0561 CPI 7,” ; TEST ТЕ сомма 
0294 CAD203 0662 44 PRINS ; BRIF IT IS 
0397 FE2B 0563 CPI 77 ;TEST ТЕ SEMI-COLON 
0399 CAQ&03 | 0654 42 PRIN? ;BRIF IT IS 
0326 05 0665 PUSM D ; SAVE DE 
0398 ES 0564 PUSH H ; SAVE H, É 
ОЗФЕ il16E1D 0447 LXI D.TABLI ; POINT LITERAL 
Оза1 OF 0553 RST 2 ;GO SEE ТЕ TAB(XX) 
ОЗА2 CADFO3S 0669 42 PRINS : BRIF IS 
0384 EL 0670 POP H ;ELSE, RESTORE H, L 
Оза» CDO714 0671 CALL EXPR ;60 EVALUATE EXPRESSION 
OSA? 01 0572 POP D . ; RESTORE D, E 
оза» ES 0573 PUSH H ; SAVE H, L 
озав ЕВ 0674 XCHG ; FLIP/FLOP 
OSHC: 3APFSZ21 0575 LOA NS ;GET TYPE OF RESULT 
: OZAR FEET 0675 CPI 231 ; TEST IF STRING 
0381 CABDOS 0577 JZ | PRINS ‚ БАТЕ ІЗ 
0584 CDF30B 0473 CALL FOUT ; GO CONVERT OUTPUT 
озв7 23 0672 INX H ; POINT NEXT 
0323 ЕВ 0430 XCHG ; FLIP/FLOP 
осы? El 0681 POP H ; RESTORE H, L. 
ОЗВА 237003 0682 ЧМР PRINZ ; CONTINUE 
ӨЗЕр 115820 | 0432 PRINS: LXI D.STRIN ; POINT STRING 
0259 1A . 058% LDAX D ; GET LEN 
osci 87 0435 ORA ; TEST IT 


lifZAl 3080 
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10:14:01 1% APR 12375 ресе 24 
АНП ОВЕСТ LINE ТАЗ PCD оРВМОЗ COMMENTS 
OSZCZ САСЕОЗ 0436 JZ PRINT : BRIF NULL 
030$ 47 2637 мо 2.4 ; ЗАМЕ LEN 
OCA 12 9683 PRINS: INX D ; POINT NEXT % 
02C7 LA 5639 дах D ; ВЕТ А CYTE Р 
0363 77 0599 мом M.A ; STORE ІТ ( 
озс? 22 0621 INX H iPOINT NEXT Ж 
озса 05 9522 оса з ; CECR ста 
ОЗСЗ 226503 0493 “NZ PRINS LOOP | 
ОЗСЕ ЕВ . 0594 PRIN7: XCHG ;PUT END арса IN D, E 
ОЗСЕ EL 0535 POP H i RESTORE H, L 
0300 6370903 0474 ЈЕР PRINZ ; CONTINUE 
0205 COB212 0597 PRINS: CALL ТАВЗТ $30 POSITION. NEXT TAB 
030 23 0599 PRINS: INX H ; POINT NEXT . 
0307 3=01 0593 МУТ А. 1 i ET SETTING FOR šu 
0209 326422 0709 STA PRSW i SET TRE SWITCH 
озрс 235203 0701 ЗМР РЕМ :33 NEXT FIELD 
оз Di 0702 PRINA: РОР 0 ЗЕТ RID СЕ STACK ENTRY 
ОЗЕО CDO714 0703 CALL EXPR ; 60 EVALUATE 
OZE? ES 0794 PUSH H i SAVE H, L. 
ОЗЕФ СООВІС 0705 CALL FBIN ; CONVERT TO 3INARY 
93Е7 215821 0705 | LXI н, социум i POINT CURRENT POSITION 
SEA 35 0707 SUS м i SUBTRACT (LEAVES NUMBER OF BTL 
ОЗЕР El 0708 | POP H ; SET H, L 
ӨЗЕС 01 070? POP D GET ВИЕ 
USED FA7003 0710 JM PRINZ i ERIF.ALREADY PAST ІТ 
OSPO 47 Q711 MOV B.A ; SAVE COUNT 
осві ЗЕТО 0712 ел А,” °“ i GET FILL . 
OZF3 СА7003 0713 PRINB: JZ PRINZ ЕРІП COUNT 2280 
ОЗЕ 12 ` 0718 STAX D ; РУТ ONE Sperm 
ОЗЕТ 13 07:5. INX D i POINT NEXT ` 
ОЗЕЗ 05 0715 сев в ; СЕС? ств i 
OSF? CSF203 0717 ым? PRINB ПОР 
SFO 2053198 0713 PRINC: CALL ЕС ; SAVE EOL РОЗІТ 
ОЗЕР CS7B03 0713 JMP PRINS ; TERMINATZ 
IPSAI 3020 2K ASIC VERw-1.3 19:14: 322 45 APR 1?75 PASZ 25 
AUDR OBJECT LINE TAG  . OPCO OPRNDS COMMENTS Ў 
° ” > 
9402 . 0721 FOR: ЕС) s : e 
ИЕ + ы Ç - 
0723 ; 
0724 ; STMT: FÜR VAR = EXPR TO EXPR (STEP Ехрет 
0725 1 X 
9725 i 
0407 606418 0727 CALL VAR i NEXT WORD MUST CE VARIASLE 
040% ЕЗ 9723 XCHG ;FLIP/FLOP | 
1404» 221220 072? SHLO INOX ? ЗАМЕ VARIASLE МАМЕ 
0409 ЕВ 0720 XCHG ;FLIP/FLOP AGAIN 
040А FESD 0731 CPI “=° i TEST FOR EGUAM, SION 
` 0406 С2АДЛА 0722 “NZ SNERR i BRIF NO EQUAL 
040" 23 9753 INX H ; POINT NEXT 
0410 CDO714 0734 CALL EXPR 350 EVALUATE EXPR, IF АМҮ 
0413 ES 0725 XCHG i FLIP/FLOP AGAIN 
0414 291920 0724 LHL INDX ‚СЕТ INDEX мом 
0417 ЄЗ 0737 XCHG i FUIPY FLOP 
0313 23 0723 PUSH H ; SAVE H, L 
0419 CDSFiB 0729 CALL ЗЕАЯС iGO LOCATE МАМЕ . 
0412 EB 0740 XCHG ‚РОТ ADER IN HL 
0410 221220 07844 SHLD ADORI ; SAVE ADDR 
0420 F7 0742 RST 5 GO STORE THE VALUE 
0421 EL 0742 POP H i RESTORE POINTER ТО STMT 
0472 115F1F 0748 СЯ: D TOLIT : ET LIT ADDR 
0425 07 0745 FAT 2 i GO COMPARE 
0425 САДА 0745 JNZ МЕРЯ i BRIF ERRCR 
0422 CDO714 0737 CALL EXPR 500 EVALUATE т0-Ехра 
0822 ЕЗ 0738 PUSH H ; SAVE H, Ú 
0420 211620 0749 LXI Ho TVARI POINT "ТО" VALUE 
0430 ЕТ 0770 RST + ; SAVE IT 
0431 ZIZELE 0751 LXI H, ONE i POINT CONSTANT: 1 
0434 ЕР 9752 RST 5 : LOAD IT 
0435 21 0753 РОР M i СЕТ H, L 
0434 7E 0754 MOV ALM i SET THE CHAR 
0437 57 0775 она а ; TEST FGR EMO СЕ STATMENT 
0433 СА4804 0756 42 FORD ` ; SRIF NO STEP 
0428 Ез 9757 PISH H ; АЕ-ЗАУЕ | 
043С Зак 0723 LXI 0, STEPL з TEST FOR LIT -ЗТЕР- 
ОАЗЕ 07 0759 RST 2 ; 50 COMPARE 
0440 CA4704 0750 JZ FORI ; SRIF STEP 
0442 Е 0751 POP Н i RESTORE H, Ú | 
0444 654894 0752 ЈЕР FORZ ‚За МО STEP VALLE ( 
0447 01 9753 дат: РОР D ; POP OFF TRE ЗТАСК 
0443 CDO714 0754 CALL EXPR ;60 EVALUATE EXPAZSSICN о 
олай ES 0755 FOR2: PUSH H ; SAVE н, 
0440 212020 | 0746 ХІ W TVARZ ; POINT STEP VALUZ 
озар РУ 0767 RST b ;SAVE IT 
0450 Е: 0753 POP MH i RESTORE HL 
04%} С2531А 0749 CALL. EOL - i ERROR (Е NOT ЕМО-ОР- INE 
0454 ÇD7Z%#OF 0770 CALL FTEST i GET STATUS OF FAL 
9487 FS 0771 P'JEM PSH ZAVE А. STATS 
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IMSAI 8080 SK BASIC VER-!.3 


аш 


0458 
O43B 
945С 
0450 
0440 
0463 
од 
сы» 


QD. с 


211С20 
EF 

F1 

Е2ЬЕо5 
2А1220 
С0539Е 
СА7804 
FA7COS 
CSCFO4 
2A1220 


2 С0330Е 


CA7B04 
FACFOA 


119221 


2341320 
EB 
7E 
47 


.ФЕФІ 


87 
23 
СА?ЕО4 


оа88 7E 


0430 


ве 
C29704 
23 


323221 


зацава 


озо 


C20 


зо Я 


LINE 


Таз 


FOR2: 


FORS: 


FORA: 


FORT: 


APTO 


OPRNÜS 


Н, TVARÍ 
3 

PSH 
FOR 
ADORS 
FSUG 
FORS 
FORS 
FOR? 
ADORI 
FSUE 
FORS 
FOR? 

D, FORNE 
{NOX 


А, м 
3, ñ 
С, 1 

a 

н 
Еовз 
я, м 

D 
FORT 
м + 
& M 

H 

= ni 
FORS 
7 

14 

% 

B 
FIRS 
а, с 
9 
SNERR 
FORNE 
м, 0 

М 

МЕ 

P 

H 

н, TVARZ 


© 


о зі e M s оды Ром RA 2244. wn 
. 


10:15:05 15 АРА 1275 PAGE 25 
СОМКЕМТЗ 


GET ЕМО VALUE 

; LOAD IT 

; RESTORE STATUS і 

i SRIF FOR IS POSITIVE 
; GET ADDRESS CF INDEX 
i COMPARE THIS AGAINST END VALLE 
i ВАЗЕ START з END 
;BRIF START 2 END. 

; GO LOCATE MATCHING NEXT 
i GET ADDRESS ОР INDEX 
; COMPARE қ 

;BRIF START = END 

5 БАТЕ START > END. 

i POINT TABLE 

i GET INDEX N&ME 

i FLIP/FLOP 

i GET COUNT 

i STORE IT 

; МЕЧ CTR 

; TEST IF ZERO 

i POINT 

; ERIF TABLE EMPTY 
СЕТ LIST BYTE 

¿TEST IF EGUAL 


i BRIF NOT 


; POINT МЕХТ 
; GET NEXT BYTE 
; POINT BACK 
; TEST IF EQUAL 
i BRIF EQUAL. 
ADJUST H, Ú 


i COUNT ІТ 

; DECR СТА 

i LOOF 

; GET UPDATED COUNT 

i TEST IF TBL EXCEEDED 
i ERROR ІР MORE THAM 3 OPEN FOR/N 
; PUT IN TABLE 

; STORE IT 

i POINT NEXT 

: STORE IT TOO 

POINT NEXT 

i POINT STEP VALUE 

» 060 IT 

;¿RESTORE M, L. 

i: STORE IN STACK 

i SAVE H, Š 

; POINT 7707 VALUE 
LOAD IT 








- 


IMSAI 3080 SK BASIC VER=1.3 


АТИЯ 


0487 
озЕа 
0483 
оана 
озк0 
ОЗЕ 
ОЉВЕ 
оасо 
QAG1 

QA3G2 
0403 
9455 
С447 
о4сз 
ОЗ 
Оозгу 
OCF 
оа? 
04:3 
095 
UIE 
0407 
5413 
о408 
О4ПЕ 
дозе 
Олко 
ОЗЕ; 
OSES 
0455 
OSES 


O4E? 3 


0480 
OAETI 
O4FD 
O4F3 
Ооз» 


QAF^ . 


O4F9 
OFFA 
Q4FD 
ОДРЕ 
ОЗЕР 
0500 
9503 


ЭВУЕСТ 
Е! 


САЯСТА 


22612: 


ЕР 
оз 

CE і 
11451Е 


LINE 


0323 


0824 
0325 
0825 
0827 
0823 
93:23 
0330 
02331 
9832 
0333 
9334 
0833 
0335 
2837 


‚ 0333 


0339 
0340 


ТАЗ 


FOR?: 


9341 | 


03242 
0343 
2844 
0253 
0345 
0347 


0542. 


0249 
2350 
0831 


FORA: 


OPCD 


OPRNDS 


D, NEXTL. 
Е 


FOR? . 
1 

INDX +g 
1 
FOR? 
INDX 
H 


^ >» 


FORA 


10:15:55 15 APR 12975 рас 27 


COMMENTS 


;RESTORE H, L. 

; STORE IN STACK 

i FLIP/FLOP 

› СЕТ ЄМО ADDR 
¿POINT ONE PRIOR 

i FLIP BACK 

; STORE IT 

i POINT NEXT 

; STORE IT 

i POINT NEXT 

; GET HIGH STMT ADDR 
¿PUT IT 

; POINT NEXT 

i GET LOW STMT ADD 
;PUT IT : 

; CONTINUE 

i GET ADDRESS OF STATEMENT 


.; GET LENGTH CODE 


; IMIT INCREMENT 
i СОМРУТЕ АОБА OF NEXT STATEMENT 


БЕТ NEW LEN CODE 


i; SEE IF END СЕ РОМ 
i BRIF IT ІЗ E 
; ЗАМЕ ADDRESS ~ 
;ADJUST H, L | 


i SKIP SPACES 

¿POINT NEXT” 

$ SEE IF IT 15 A NEXT 
; LOOP IF NOT 

i SKIP SPACES 

¿GET FIRST CHAR 

; COMPARE 

; BRIF NOT MATCH NEXT 
; СЕТ 2ND снова 

; DITTO 

+SEE IF SINGLE CHAR 
; BRIF IT IS 

; COMPARE THE TWO 

; GRIF NOT EQUAL 

; SKIP TO END (HOREFULLY) 
? БЕТ THE МОМ BLANK 

;SEZ IF ЕМО 

i BRIF NOT END 

i ELSE 50 NEXT STMT 


зтмт 
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10:15:22 15 APR 1974 PAGE 23 
ADR OBJECT LINE TAG ОРСП OPRNDS COMMENTS 
оо» 0847 IF: Ес) s 
0370 ; 
Q371 ; 
0972 ; STMT: IF EXPR RELATION EXPR THEN STMTB 
ж 0872 ; 
è 0374 ; 
0206 CDO714 0375 ALL, EXPR i GO EVALUATE LEFT EXPR 
0509 ES 0875 PUSH H i SAVE H, L 
ООА 325585721 0877 LDA NS ОЕТ TYPE коре 
озар 221520 0873 STA IFTYP ; SAVE IT 
0510 ЕТЕ? 0879 СРІ 231 ; TEST IF STRING 
(512 C22405 — 0880 ЗМІ ТЕ! i BRIF NOT 
0515 210520 0891 LXI н, IOBUF ; POINT SUFFER 
0513 1153720 0332 LXI D,STRIN ; POINT RESULT о 
0518 1А 0933 LOAX D „БЕТ LEN 
ос 3C 0334 INR А ; PLUS ONE 
0410 47 0585 мом ње : SAVE IT 
.Q51E СОСЗІС 0334 CALL COPYD ; 65 MOVE IT 
0521 232305 0237 JMP ТЕ? : GO AROUND | 
0524 211520 03923 IF1: LXI M TVARI ‚СЕТ ADDR ЗЕ ТЕМР STORAGE 
она FT. ` 0339 RST ó ‚ЗАМЕ ІТ | 
0523 Е; 9890 1Е2: опр H a RESTORE H, Ú 
-= : = 0529 ығ 9821 ХА А ; CLEAR А oe 
: 0526 ae 0892 мом с.а i ЗАМЕ IN REG С 
052B. 47 ч. 0893 мом BA ; INIT REG 
052С 7E 0894 ТЕЗ: мом ALM i БЕТ OPERATOR 
0520 04 0895 INR B ; COUNT | 
OS2E ЕЕЗО 0325 GPI стаг i TEST FOR EGUAL 
0530 С22505 (0897 «МІ ІР4 ; BRIF IT IS 
0533 oC 0373 INR с » 600 1 то с 
0534 23 0829 INX H ; POINT NEXT. 
0525 БЕЗЕ 0900 IF4: СРЕ t» ; TEST FOR GREATER THAN 
0537 C23DOS 0901 JNZ ТЕЗ ; BRIF IT IS. 
942а ос 9902 INR с ; ADD TWO 
0538 ос 0903 INR с ; TO REL CODE 
ossc 23 0704 INX H . i POINT NEXT 
(1530 FESC 0905 ТЕЗ: РІ <<” ; TEST FOR LESS THAN 
ОЗЗЕ C24705 0906 JNZ ТЕ» ; BRIF IT ІЗ 
0542 79 0907 MOV Ac i SET REL CODE 
0543 C504 0708 ADI 4 ; PLUS FOUR 
Quam ағ 0209 мом cA ‚РОТ BACK 
G545 23 0230 INX H ; POINT NEXT 
0547 79 0911 ТЕ»: MOV ALL $ СЕТ REL CODE 
0543 87 0912 ова А ; TEST IT 
0549 ©5 9213 PUSH В i SAVE В, с 
054% CAROLA 0914 JZ SNERR BRIF SOME ERROR 
. 0542 Сі 0915 РОР В ; RESTORE В,С 
0548 321020 0916 STA REL ; SAVE CODE 
0551 78 9917 MOV А,В ; GET COUNT 
: | 0552 FEOZ 0213 CPI 2 ; TEST FOR Two 
0554 C22CO5 091? JNZ  IF3 


‚ЗЕЕ IF MULTIPLE RELATION 





өйи 


оз57 
оз5а 
OS 
0540 
Ое 
0584 
аша? 
OSA? 
оза 
95ЗЕ 
0572 
57% 
0375 
0572 
OST 
057F 
0532 
0584 
0587 
озза 
osen 
0529 
0592 
0524 
0593 
95928 
OSE 
OSAL 
052854 
0585 
ОЗда 
OSHS 
ОЗЕ 
ОБАЕ 
0552 
9585 
обыз 
05839 
OSBE 
OSBF 
95с7 
0:24 


оС 2 


CCG, 
955? 
със 
ои 
Q5 
ОССЕ 
опо 
оз 
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Бора 


0507 
9503 
0507 
озпа 
(5e 
OST 
OSE 
OSLF 
OSEO 
ОБЕ 
ОЗЕ 
OSE7 


OSES : 


OSE? 
OSEC 


ЗЕ 


OSEE 
ОЗЕР 
OSF 
ЖЕЗ 
OF 4 
USFS 
OSFS 
(FA 
ЕП 
05 

0601 
0694 
ЈА 


GAK- 
особові 


BJECT 


530714 
251229 
ЗА 321 
211820 
ЗЕ 
C2A01A 
FEZ7 


CAZSOS 


4410.29 
СОЗЗОєЄ 
SALAZO 
{Р 
027205 
237307 
CA?EO* 
3A 1520 
2502 
228005 
СО7ЗОЕ 
FaA?EU»S 
341420 
25904 
САР 301 
С0750Е 
FREQ E 
CAF SO} 
251220 
11591Е 
D7 
CAZS02 


CAS7O3 
241220 


07 

СЗАО1А 
203519 
САЕЗО2 


1 1 2320 
12 


уз > 


овЈЕСТ 


220705 
3620 
72 

57 
CZDFO 
SETO 


20. 
Еав?го5 
چې‎ 

73 

81 
C2CEON 
0501 
SALA20 
SO 

TAF sO} 
29208 
0602 
ордон 
0504 
СЗРАОЯ 


11361Е. 


0767 


IF3: 


IF?: 


TRUE: 


tes: 


0958-. 


925} 
9970 


LINE 


0971 

9972 
0273 
0974 
097% 
0375 

0277 
0278 
0777 
0280 
02381 

79372 
0233 

0234 
0285 
0965 
0287 
9983 

093? 
9730 
0991 

2292 
2923 
9994 
22248 
0994 
0997 
95923 
[* 
1000 

1091 


ТАЗ 


ЕН: 


IFT: 


IFK: 


TFU; 


OP RNDS 


ЕХРА 
50СА1 
NS 

H, ТЕТУР 
м 
SNERR 
231 

ТРЕ 

Н, ТУМАНІ 
F38 
REL 


D, BITAL 
ту 


GOTO 
ADDR1 
D, GOSBU 
2. 
50308 
ADDR1 
D, THENL. 
2 


SNERR 
NUMEA 
бото 
RUNG 
RIJN 


" H,.IOBUF 


8, м 

С, STRIN 
D 

с А 

D 


A, 3 


н eat қ. 


- 


. 4 RRIF BOTH NOT 


COMMEMTS 


150 EVALUATE RIGHT SIDE 


$ SAVE LOCATION OF THEM CIF ANY) 


; ET ТУРЕ NOE 

. POINT LEST TYPE 
$ COMPARE 

: SRIF MIXES - 

‚ TEST IF STRING 
с SRIF ІЗ 

;РЗІМТ LEFT 


; ЗЫБТААСТ LEST FROM RIGHT ` 


$ ЗЕТ RELATION 

; TEST SIT OO 

i BRIF NO EQUAL TEST 
¿SET STATUS OF ТАСС 
$ BRIF | ЕЕТавгсат 

; LOAD RELATION 

; MASK ІТ 

? BRIF NO > 

i БЕТ STATUS OF Facc 
i BRIF БТ 

a LOAD RELATION “ 

; MASK IT 

з BRIF ма < 


БЕТ STATUS GF FACT 


» GRIF GT. 

; BRIEF ZERO (мат EQUAL) 

; GET POINTER То STATEMENT 
; POINT “GO ТО" 

з СО COMPARE А 

ìi BRIF ІР... SOTO мм 

; СЕТ POINTER TO STATEMENT 
; POINT LITERAL 

; 00 COMPARE 

? BRIF ТЕ... GOSS мм 

i SET POINTER ТО STATEMENT 
i GET ADDR ^THEN^ 

$30 COMPARES 

; ЗВІР ERROR 

з TEST ІР NUMERIC 

; GRIF IT ІЗ 

;ELSE, MAY БЕ ANY STMT 


è POINT PRIOR 
? СЕТ СЕМ 
‘POINT THIS 
‚зет LEN 

; ЗАУЕ IT 

; POINT NEXT 
;DITTO 

; GET LEFT LEN 
; TEST IT 


10: 13: 92 
COMMENTS 


: GRIF MOT ZERO 
;EXTEND WITH SPACE 
; SET RIGHT LEN 

i ТЕЗТ ІТ 

» SRIF NOT ZERO 
ет SPACES 

; EXTENO 

; GET RIGHT CHAR 

i TEST WITH LEFT 

i BRIF LEFTSRISHT 
$ BRIF LEST<RIGHT 
i GET LEFT COUNT 

; SUBT ONE 

; ERIF WAS ZERO 
¿UPDATE СТА 

; ЗЕТ RIGHT LEN 

; SUBT ONE 

; BRIF WAS IERO 

; ПРОТ СТВ 

; QET LEFT LEN 

; COMPARE TO RIGHT 
ZERO 
; SET Swe EQUAL. 

i ET RELATION . 
i AND WITH RESULT 
; SRIF FALSE 
ELSE, TRUE 

; ЗЕТ CODE 

; (UMP 


15 СРЯ 1275 РОБЕ 


3 








eS 
UN 1 
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ALLER 


050Е 


О59Е 
0511 

4512 
0513 
0514 
06145 


Q51? 


оС 
9510 
0629 
0673 
0625 


2052? . 
бога 


06321 
о620 
0631 
0232 
0432 
0624 
1637 
943A 
0620 
0432 
0640 
0553 


0643 С 


0538 
9658 


о64є 
06551 
0552 
06353 
065» 


‚ 0652 


9553 


0559 ; 


OSSA 


058 : 


0652 
ое 
0650 
0661 

0562 





OBJECT 


са2>96 
3669221 
B7 


среЕзіа 


LINE 


1002 


1004 j 
1005 ; 
; STMT: 


1005 


007 ; 
1003 ; 


1009 
1010 
1011 
1012 
1013 
1014 
1015 
1016 
1017 
10:3 
1019 
1020 


1021 


Io 


1022 


1024. 


1925 
1025 
1027 
1023 
1022 


| 10320 


1031 
1032 
1033 
1024 
1035 
L034 
1037 
1023 
1032 
1040 
1041 
1042 
1043 
1044 
1045 
1044 
1047 
1043 
1089 


1050 


1051 
1052 
1053 


Тао 


LET1: 


Ег: 


LETZA: 


LETS: 


OPED 


EQU 


ПЕТ? VAR = EXPR 


CALL 
PUSH 
PUSH 


OPRNDS 
* 


Ф 


GETS3 
B 

D 
А, м 


“ ~“ 


GETCM 
H 
EXPR 
EOL 
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COMMENTS 


; GG GET ADDRESS OF VARIABLE 
; ЗАМЕ МАМЕ 

; SAVE ADDRESS 

; LOAD CHAR 

; TEST FOR EQUAL SIGN 

a BRIF IS 

$ СЕТ MODE Зи 

; TEST IT 

i BRIF LET ERROR 

iPOINT LITERAL 

; G0 PRINT IT 

GO TO соммамо 

; POINT NEXT 

ON EVALUATE ЕХРРЕЗЗТОМ 
i ERROR IF МОТ ZMD-OF-LINE 
i НЕЗТОЄЄ AO0DRES33S3 
; RESTORE МАМЕ 

i GET TYPE 

; ЗЕЪТ IT 

; СЕТ RESULT ТУРЕ 

$ BRIF STRING 

i TEST IF NUMERIC ` 

3 BRIF MIXED MODE 

» GO STORE VARIABLE 

; CONTINUE 

$ TEST ІР STRING 

i BRIF MIXED MODE 

i GO STORE IT 

і CONTINUE 


iPOINT STRING SUFFER 
$ СЕТ NEW LEN 
‘MINUS OLD LEN . 
; BRIF ЗАМЕ LENGTH 
; COPY НЫ 

; 79 Dy, Е 

; SET LEN 

; TRUE LEN 

; POINT NEXT 

; DECR СТА 

; LOOP 

? SKIP 

i AGAIN 

i СЕТ LO NAM 

; ЗАЧЕ 


—-.-.-..--.-- 


IMZA! 8030 


nm 


оһАЗ 
0654 
0665 
Caso 
0627 
9253 
о» 
обов 
0658 
Әеее. 
GAAF 


. 0670 


0671 
0577 
9673 
0674 
06575 
0575 
0577 
0573 
0679 
67А 


OB SECT 


5243105 


РУАНУ 


18 


0478 722 


0578 
0631 
0632 
0553 
0234 
9653$ 
068» 
Ова? 
за 
оьз 


GEIE 


06} 
25394 


9596 2; 
2627 : 


0493 
0599 
9578 
0598 


съзс 


9530 
06?Е 
95$ 
ово 


. 062 


оғаз 
0684 
9683 


IMSAI 3090 ЗК 


pr na 


де 
0587 
сна 
OSA? 
Оеде 
обав 
0662 


ов.ЕСТ 


ја 
77 
23 
13 
оз 
C2A606 
с? 


LINE TAG 


1054 
1055 
10326 
10537 
1953 
[953 LET4: 
1050 
1051 
1052 
1953 
1054 
1065 
1055 
1067 
1053 
1967 LETS: 
1070 
1071 
1072 
1073 
1074 
1075 
1075 
1077 
1073 LETS: 
[072 
1920 
1081 
1032 
1083 
1084 
1035 
103% 
1037 
1033 
103? 
1090 LET?: 
1091 
1092 
1092 
1994 
1095 
1095 : 
1097 
1023 
1099 
1:00 
1101 
1102 6272: 
$103 
1104 


BASIC VER=1. 
LINE ТАЗ 


1105 ЕТ: 
1105 
1107 
1103 
110» 
1110 
1142 


К въ: VERsxt. З 


SPRNOS 

INX 8 
(рах D 
"U 3,8 
PUSH З 
DCX Hm 
ЗУ AM 
RA Ад 
27 LETS 
PUSH ~ 
DCX м 
LGA М 
OV BM 
ИСА М o 
мому с, м 
РОР М 
“ОУ AM 
зтах 0 
DCX н 

^ в 
INE 2 
"QU AB 
ска с 
JNZ LETS 
JP LETS 
ХСН 
РОР З 
MOV м, В 
DCX н 
MOV м, Ú 
LXI D, ЗТАТМ 
Дах в 
ML 229 
ADI S 
JZ LET7 
JNC БЕТ? 
MYT 3, 254 
сма 
INR А 
MOV С.А е 
сех H 
мом · м, В 

эу ~ 
мом мс 
RST 7 
53 3 
бай 38 
МУТ м,о 
INX ~ 
„пах D 
INR А 
мои а 
3 
ОРСО OPRNDS 
крах Ü 
мо“ "A 
INX н 
INX Ü 
DCR B 
JNZ LET? 
RET 


10:12:44 15 APR [374 Pass 52 


4 — 


спмчемтз 


: ЗЕТ НІ NAME 

ЗАО IT 

(SAVE 

; SAVE NAME ds. 
POINT NEXT ЕМТЗУ 
СЕТ NEXT 

i: TEST ІР ЄМО 
:ӘРІР IS 

i SAVE Н. 24 

; SKIP NEXT 

; POINT LEN 

i СЕТ HI LEN 

; POINT LO 

? ВЕТ LO LEN 

; RESTORE т. 

ОЕТ А BYTE 

РҮ 

i POINT NEXT 

; DITTO 

; 200 70 CTR 

БЕТ HI 

г TEST IP ZERD 

; LOOP 

; CONTINUE 

; PUT NEW ADOR TO m, Ú 


СЕТ NAME 


¿STORE HI BYTE 
; POINT NEXT 

? STORE LO 

i ET NEW LEN 
СОАО IT 


i INIT HI COMPLEMENT 


i COMPUTE ENTRY LENGTH 

i BRIF 256 ЗУТЕЗ 

; BRIF LESS 25 

ЗЕ” BIT OFF 

; 12 COMPLEMENT 

i THEN 275 

i SAVE LO LEN 

; POINT NEXT 

i STORE HI LEN у 
; POINT NEXT š | 
; STORE LO LEM ( m 


i ADJUST H, L 


i СОМРОТЕ ЄМО ЈЕ ENTRY 
; МАЯК NEW Емо 

;РЗІМТ LST BYTE 

i БЕТ LEN 


.4 TRUE LEN 


i SAVE LEN 


10:20:39 15 APR 1275" РАДЕ 23 


COMMENTS 


35ЕТ A BYTE 
i COPY IT 
¿POINT NEXT 
; DITTO 

: SUBT СТА 

; ООР 
;RETURM ° 











МСАТ 3030 3K BASIC VERsI. 3 10: 20: 43 15 SPR 1275 Раб= 14 
ALAR OBJECT LINE TAG PCO JPRNDS CIM"ENMTZ 
GARE {113 NEXT: EOU $ 
1115 ; : 
LIIS 4 
1116 ; STMT: NEXT VAR 
5517 i4 
1113; ; 
. 05е CTh418 1119 CALL VAR : : ВЕТ VARIABLE маме 
Q^kR2 6065344 1120 CALL ЕС. i ERROR (Е NOT EMÜ-OF-.N£ ` 
оған = 1121 XCH3 i FLIP/ FLOP 
оор» 221320 tic SH.O INOX : SAVE VAR МАМЕ 
O48? #5 ille PUSH н ? ЗАМЕ VAR МАМЕ 
ова 213221 1124 LXI Н, ЕСЕМЕ POINT FOR/NEXT TABLE 
9580 3» 1125 MOV G.M i QET SIZE 
. ORE 73 1125 MOV 2. В САО IT 
ОБЕ 87 1127 ORA A ¿TEST ІТ 
° 5 се 0 CARLA 1123 42 NXERR : SRIF TAELE Емету 
ғ 23 1129 INX H ; POINT NEXT 
0524 01“ 1120 POP 0. i RESTORE VAR NAME ` 
_ GALS 7E 1131 МЕХТІ: MOV Am г СЕТ LST BYTE | 
NSCS 23 з 1199 INX н '; POINT NEXT 
0507 за 1133 СМР D i COMPARE 
0753 C20004 1134 JN? NEXT i BRIF NOT EQUAL 
oeca 7E , 1135 MOV A.M ? СЕТ 2ND BYTE 
Oecc ‘B8 1136 CMP E i COMPARE 
оғ» САБО 1137 JZ.  NEXT3 ; BRIF 2ЏАЦ 
9600 FF 1158 ЧЕХТ2: RST 7 i ADJUST = Ú 
оьрі 90 2.2329 58 13 
O42 05 1149 DCR в i DECR. COUNT 
оғыз CCS $41 JNZ  NEXTI ; (СОР | 
Vols СЗАС1А 1142 „МР  NXERR : GO PUT ERROR MSG ` 
опе ЗАЗ22т 1153 МЕХТЗ: LOR ЕОРМЕ ` ; ЗЕТ ORIG COUNT 
обе 20 1144 Sup в | ; MINUS REMAIN 
обор ЗС 1185 INR а ; PLUS ONE 
0605 323221 1135 STA FORNE ; STORE мем COUNT 
CEt 23 1147 INX H ; POINT ADOR 
V6E2 ЕЗ 1143 PUSH H ‚3 SAVE F, L. ADDR 
б^®З CDSF15 1139 CALL ERC :50 GET ADOR OF INDEX 
З O^zréó ЕЗ 1150 XCHG РОТ TO H, Ú | 
0687 221220 1131 SH O 20081 i SAVR IT 
GFA EF 1152 RST S + 5080 INOEX 
БЕЗ EL 1153 POP н зет HU (TER) 
UE ES 1154 PUSH н ; RE-SAVE $ 
ОБЕВ CDSSeotL 1155 САЩ. FADD ; ADD STEP VALUE 
GFO 211C20 . 1154 . LXI Ho TVGRIÍ $ POINT TEMP AREA 
0623 F7 1137 ..RST 5 i SAVE NEW INDEX 
Core EL 1158 POP MH s ВЕТ С (TEL?) 
$25 ES 1152 Риза H . + RE-SAVE 
ОБЕЗ ЕЕ 1160 RST 7 ; СЕТ LEN TO NEXT 
деР7 да 1151 08 3 
0523 СОЗЗОЕ 1162 СА. FSUB + ZUBTSACT ТО VALLE 
O4FB CA1907 1153 «І МЕХТА . SAIF ZERI 
IMS&Í 3099 SK BASIC VER=1. 3 10.21.35 15 APR 1974 Pass 34 
Е aliGR OBJECT LINE TAG ОРЄ) ОРНМОЗ о COMMENTS 
OPE EL 1164 POP M СЕТ HL (PTR ТО STEP) 
ОБЕЕ ES 1153 Ризи M > RE-SAVE 
‚ 0700 75 1165 МОУ AM . „БЕТ SIGNSEEXPOMENT OF STEP 
- 0701 37 1167 SORA А ; TEST IE 
0702 2804320 1158 (ра ес GET SIGN Ж ЕХРОМ ДЕ OIFF 
0705 P1407 1152 ЈМ МЕХТ : SRIF NEGATIVT 
0703 87 1170 NEXT4: BRA а ; TEST SIGN OF DIFF 
0709 FA1307 1171 ым NEXT i BRIF LESS THEN TO-ZXPR 
0706 239224 1172 NEXT7: LX Н, FORNE i OET ADOR ТАВ = 
Q?08 35 1173 DCR M ) SUBTRACT ONE FROM COUNT - 
6710 01 1174 РОР D $ ADJUST STACK 
9714 ССЕЗОЇ 1175 AME кик РОЮ STMT AFTER NEXT 
. 90714 B7 1176 NEXTS: ORA A ; TEST SIGN OF OIFPFERENCZ. 
0715 FAQCOT 1177 4M мехт7 $ SRIF ЕМО GF LOOP 
0713 Е 1172 NEXT6: POP H i GET РТА То TOL 
071? ЕЕ 117? RST 7 i ADJUST H, U 
009718 98 1120 DS 3 
0718 S5 1131 : MOV 51 i СЕТ HI BYTE 
0716 22 1132 LINX H ; POINT NEXT 
9710 ЧЕ 1133 МОУ ELM i GST (0 BYTE 
97ig 2 1134 INX H POINT NEXT 
: o71F ТЕ 1125 мом AM SET HI BYTE 
: 0720 325221 1136 STA ЭТМТ-+: ; ЗАМЕ 
5713 22 1127 INX H ; POINT NEXT 
0724 7€ 1: за мич а, м ; SZT LO BYTE 
0723 326121 113? STA STMT ; SAVE 
0773 23 1129 XCHG М. ADDR OF STMT АРТА FOR 
0772 СОА 1191 CALL SOL i SETUP MULTI РТВ 
0726 Z^5121 1122 LIRI STMT | ІЗЕТ ADDR OF FOR ЗТМТ 
ор 7? 1123 INX # i POINT LIME мим 
0720 227821 1124 SHLD LINE i SAVE АССА LINE ` 
0733 211С20 1125 LXI Н, ТУМАНІ + POINT џРОТЕО VALUE 
0735 ЕЕ ‘LISS RST 5 » 50 LOAD IT 
2737 281220 1127 LHLD* ADDRI ; GET ADDR OF INDEX 
0728 Е? 1128 RST 5 :00 STORE IT 


9738 CSF! 11?9? wit RUN 








вітре 


о72є 


О7ЗЕ` 


9751 


OBJECT 


116910 
ES 


0742707 


. 60743 
š 074% 
0737 


о7%а ; 
0740 · 


O7 SF 
0750 
9751 
9753 
075% 
оге? 
о7=8 
07350 
07-Е 
0760 
0751 
- 0752 
0745 
0755 
0757 


0754 | 


0758 
0756 
975Е 
0775; 


0773 
9775 
0773 
077A 
0771 
077Е 
0731 
9782 


9733 . 


9724 
$737 
0733 
суза 
0730 
0738 
0772 


ISAI 3080 БК 


Аа 


0793 
0794 
0795 
9723 
079% 
0772 
О079ФЕ 
0781 
0742 
O7 AS 
ОТАЗ 
OFA? 
GIRA 
о7ав 
оде 


О?АЕ- 


Q/AF 
шум: 


«ДЕ 2 


OF“ 
о7вУ 
GOZE 
аурғ 


0772 с! 


ЕЕ2С 


ЕЕЗВ 


OBJECT 


79 

B7 
РАВ?О7 
CD15O8 
СЕ 
FE2C 
ASO 
37 
СОЗО1А 
221220 


£1 


220007 
23 

сревід 
13Ғ 921 
СОЕЕО? 
wa беледі, 


СЗААО7 


LINE 


1201 


1202 


12703 з 


1204 ; 


1203 


1205 


1207 
1203 
1209 
1210 
1211 
1212 
1213 
1214 
1215 
1216 
1217 
1219 
121? 
1220 
1221 
1222 
1223 
1224 
1225 
1226 
1227 
1223 
1222 
1230 
1231 
1232 
1233 
1234 
1235 
123 
1237 
$233 
120» 
1240 
1241 
1242 
1233 
1244 
1225 
124% 
1247 
243 
1249 
250 
1231 


LINE 


1252 
1253 
1254 
1253 
12 
1257 
1258 
1259 
1250 
1251 
1262 
1253 
1264 
1255 
`. £266 
1257 
1258 
1269 
1270 
1271 
1273 
1473 


1273 


ТМРИ1: 
INPU2: 


INPS: 


INPUS: 


IMPUS: 
INPUS: 


INPUT: 


BASIC VER-1. 


TAG 


INPUA: 


INP!J?: 


INPD.: 


ІМРЮВБ: 


ча 


ОРСО OPSNDS 


EQU 


INPUT VAR C, VAR, VARI 


LXI 
PUSH 
RST 
47 
РЮР 
LXI 
SHLD 
MVI 
XCHG 
RST 
CPI 
JZ 
CPI 
мс 
MOV 
LXI 
INX 
MOV 
CMP 
JZ 
STAX 
INX- 
«ме 
INX 
хн 
MVI 
СА, 
хсно 
RST 
CPI 
JZ 
CPI 
«МІ 
INX 
сащ. 
PUSH 
PUSH 
LHLD 
мом 
СРІ 
INX 
JZ 
MVI. 
СР. 
RST 


3 
ОРСО 


MOV 
ORA 
JM 
CALL 
RST 
СРІ 
42 
ова 
JNZ 
SHLD 
РЭР 
RST 
POP 
MOV 
ӘРІ 
INX 
2% 
DIZX 
Са 
JMP 
Сащ. 
SHLD 
ме 


+ 


D, LLINE 


за - 
2 
INPL. 
D 


H, ТОВЏЕ 


А0081 
м, 0 


1 

39 
(МР 2 
INPUA 
с, а 


D, ОВЦЕ 


H 
А, м 


Pod r 


INPUS 


fa S 
з 


INP1J5 
н 
52752 
H. 

D 
ADORI 
А, М 


Есі. 
RIJN 
SETST 
ADDRI 
INPRO? 


$ SKIP SPACES 


10: 22: 20 19 АРВ 1975 PAGE i4 


COMMENTS 


POINT “L IME ° 

; SAVE Н.І. ADDR 

; GO COMPARE 

? ЗВІЕ EQUAL 

;ELZE, RESTORE H.L ADOR 
; GET ADDR OF BUFFER 

i ZAVE ADDR 

; MARK SUFFER 
i FLIP/ BACK 

i SKIP SPACES 
; TEST IF QUOTE 

i BRIF ІЗ 

; TEST IF INPUT LITERAL 
s BRIF NOT 

; SAVE DELIM 

i POINT BUFFER 

; POINT NEXT 

; LOAD IT 

; TEST IF END 

? BRIF IS 

;PUT TO BUFF 

; POINT NEXT 

; LOOP | 

i SKIP TRAILING ПОТЕ 

i PUT ADDR TO H, L š 

; МААК END 

5022 PRINT PROMPT 

i СЕТ HR, L. 

; SKIP TO NON SLANK 
TEST IF COMMA 

: BRIF ІЗ 

; TEST IF COMMA 

i BRIF NOT 

i SKIP IT с 

i 60 GET VAR ADOR 

; ЗАМЕ H ADDR 

; SAVE VAR ADDR 
? ВЕТ ADDR PREV 
:L OAD CHAR 

; TEST ІР СОММА 
; POINT NEXT 

i BRIF СОМТІМИЄ 
; PROMPT CHAR 
130 READ FROM ТТУ 


EMPTY 





29) 
SUFFER 


FROM PREY 
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COMMENTS 


? СЕТ LO МАМЕ 

; TEST IT 

i BRIF STRING 

130 CONVERT TO FLOATING 
? ЗКТР SPACES 

; TEST IF COMMA 

;BRIF IS 

è TEST IF END ЈЕ LINE 

i BRIF ERROR 

; SAVE ADDRESS 

i БЕТ VAR ADOR 

: GO STORE THE NUMBER 

; RESTORE STMT POINTER 

; GET CHAR 

;TEST FOR COMMA - 
,POINT NEXT : | ' 
i RECURSIVE IF COMMA ( | 
POINT SACH " 

; ERROR IF NOT END OF LINE 

i CONTINUE NEXT STMT 

50 GET THE STRING 

; ZAVE ADDRESS 

i СОЧТІМОЄ 


Ш u arm 


LINE TAG 











нія ОВУЕСТ: 2902 OPSNDS COMMENTS 24 
ума (275 INPL: ЕО) 5 ү 
DUET j š 
1273 ; 
1279 ; STMT: INPUT LINE As | 
1220 ; > 
12231 ; а 
0702 D] 1232 РОР 9 i DUMMY РОР ТО 504557 ЗТАСК 
0723 200418 1233 CALL VAR ЗЕТ STRING NAME 
0775 79 1235 "OV А, Е LOAD LO BYTE 
0707 87 1295 ова А ТЕЗЕ IT 
0773 FZAOLA 1236 P SNERR i SRIF NOT STRING VARIABLE 
о7св 6503818: 1237 CALL ЗЕЯ ELSE, GET ADORESS 
О7СЕ 05 233 PusH D ; SAVE ON STACK 
O7CF COS523iP 123? СА, EOL ERROR IF NOT ЕмЏДејЕ- INE 
0712 3201 1229 МУТ Al GET OM SETTING 
070% 325921 1221 STA  IL3W i SET INPUT LINE SWITCH 
070? ZELF i27 МУТ А, ^>- ЗЕТ PROMPT = ЭМ 
от? CDDSI2 1223 TAL TERMI 50 RERU А LINE 
Q7DC 0400 1224 mur `É, Ó a [INIT COUNT 
О7ПЕ 1145970 1225 (ХІ O, ТА И Е РОТМТ STRING SUFFER 
ОТЕХ. 210520 1225 LXI н. Ф08ЏЕ ¿POINT IMPUT SUFFER 
Q7E4 7E 1227 Рїмеі: MOV AM ? СЕТ МЕХТ ВУТЕ 
37ЕЗ 87 1293 ORA а è TEST IT 
07ЕА CAFQO7 1299 «ФІ ЇМР 2 ? GRIF END 
07Е? 04 1200 INR в AOD TO COUNT 
о7ЕА 12 1201 STAX Ü ` PUT TO STRING SUFF • 
U7ESB 13 1302 INX D ¿POINT NEXT . 
ОТЕС 23 1303 INX H ; DITTO 
O7ED C3E407 1304 JMP [МР1 i LOOP 
О7ЕО 325021 305 INPL2: STA [154 i RESET ЗМІТСЯ 
Q7F3 73 1304 MOV АВ (GET COUNT 
оуға 322320 1307 STA STRIN i SET STRING LENGTH 
O7F7 EL 1303 POP H СЕТ ADDRESS OF VARIABLE 
0723 СОЗЕФФ 120? CALL LETZA ба STORE THE STRING 
O7FB C23F401 1310 PP RUN i GO NEXT STMT 
ІМЗАІ 3080 ЭК BASIC МЕҢІ. З 10:55:15 15 APR 1275 PAGE 33 
ALOR OBJECT LINS ТР ОРСО ОРЕМОЗ COMMENTS 
972: 113220 1312 GSTST: txt O.STRIN i POINT EUFFER 
C401 0530 ISI 2. MI 9,0 i INIT СТА 
QUT ТЕ 1314 MOV M ‚зат THE CHAR . 
9804 БЕЛО 1313 EPI "^" ; TEST IF LIT ТҮРЕ 
. 0896 CA1F05 1215 42 GETS ; BRIF 13. : 
OES ЕЕ?? 1317 CPI 39 ; ТЕЗТ IF QUOTED LITERAL 
0508 CALFOS3 1313 47 GETSZ i SRIF ІЗ 
ОЗОЕ FE2C 12319» СЕТ І: OPT ^+ i TEST ІР сомма 
0810 CASZOR 1329 AZ SETSS i BRIF ІЗ 
0313 87 1321 ова А ; TEST IF ЄМО 
(8314 ASUS 1324 42 56155 ;SRIF Із 
0817 04 1323 INR в i COUNT [T 
9818 із 132% INX 0 : POINT NEXT 
0819 12 1324 STAX DQ ` г РТ CHAR 
081» 23 1325 INX H РПІМТ NEXT 
6818 CF 1227 RST. 1 a ‘KIP SPACES 
` o81C слово 1323 JMP GETS? 3 LOOP 
GBIF SF 1222 GETSZ: MOV С.А i JAVE SELIM 
R29 23 1330 GETSS: INX H ? SKIP THE QUOTE 
0821 7E 1331 MOV. АМ GET NEXT CHAR 
0822 ве“ 1334 СМР C i TEST IF ЄМО ЭР LITERAL 
(323 СсАЗООЗ 1233 47 5Ет24 i RRIF IS У s 
0324 87 133% оға A ; TEST IF END LINE 
. 0827 CABOLA 1335 JZ CVERR » BRIF ІЗ 
озса 04 1235 . INR В COUNT IT 
328 13 1327 мх B ¿POINT NEXT 
4220 12 1238 зтах в PUT CHAR 
0820 CELSO 1329 ым” GETS г LOOP 
0338 23 1340 G&i34: INX M PSSKIP ЄМО GUOTE 
O31. oF 1351 RST 1 PSKIP TRAILING SPACES 
CEIT 112820 1342 GETSS: LXI Ü STRIM i POINT BEGIN BUFFER 
9835 73 1383 мом ЖБ ‚СЕТ COUNT 
983» 12 1344 STAX Ü i РУТ COUNT 
0837 01 1353 РОР 0 ¿GET RETURN ADDA 
оса ED 13 хсно ;FLIP/FLOP : 
0839 23 1357 XTHL. i PJT RET ON STACK, Hl OF VAR IM 
083A 03 1348 PUSH 0 i ЗАМЕ H, L. ЈЕ LOC 
обов 204Е05 1249 CALL LET2A i бо STORE STRING 
ОЗЕ El 1350 POP M i RESTORE LOCATION 
ORF с? 13531 RET i RETURN 
стадо TPO4Sip 1352 SETSS: CALL VAR «ОЕТ VAR MAME 
0942 04 125 PSH D i ЗАМЕ ON STACK 
0844 7А 155% мау А, 0 ЗЕТ HI BYTE 
озат 37 1333 ора А ; TEST IF ARRAY 
| o845 22500 134 P BES? ; BRIF NOT 
08492 СОСКІВ 1257 CALL ЗЕТИ; ; 30 СЕТ ARRAY PARAMS 
0540 ЗЕБЕ 1353 VL А, 275 ; TURN ом зы 
озық 325321 134? STA ОКЗИ ; ЗЕТ ІТ 
озі ЕЗ 360 XTHL, ; SWAP ADDR ЗМ STACK 
0557 C50714 1261 СА. EXPR iG) GET ROW. COL PTRS 
(ess Sz 1362 X TPH 


; ЗЫ? ADDR ON STACK 


IMSAI 3080 ЗК PASIC VERs1.2 


HIIR 


035. 

VSS? 
оғ” 

ова 
се: 
9:50 
осо 
0251 


IMZAI 3050 2K 


ADDR 


0852 


3542 
0355 
0855 
OBAT 
URSA 


сањв | 


OE 


OBJECT 


сопгоа 
ЕВ 

El 

Сі 

29 
CUSF iB 
с: 

се ; 


OBJECT 


204003 
ES 
55 
ШАҒ 521 
7Е 


OSAF 23 


9270 


0971 22 


(5374 
0573 
0573 
0577 
ов7л 
св7џ 
OS7E 
©0831 

0234 
08:35 
0587 
0333 
0238 
овес 
4230 
DERE 
0821 


0324 


CRON 
CRIT 
OSFA 
овев 
05%Е 
16724 
СЗАО 
сова) 
OSA2 
ORAS 
ога5 
оєда 
ова 
OF A 
сват 
Urey 
ова? 


ORRA 7 


OH BT 


87 
ЕАВЗОЗ 
591БОВ 
7Е 
ЕЕЗС 
С2АСОВ 
23 
227521 
E1 


сазвог 
729019 
СрЕЕО?7 


ЕСС 


СІМЕ 


1253 
1354 
255 
266 
1357 


1362 ET: 


136? 
1370. 


BASIC VER=L. 
LINE 


1372 
1373 
1374 
1275 
1375 
1277 
1373 
1373 
133 
1231 
1222 
1223 
1233 
1335 
1335 
1257 
1333 
1339 
1320 
291 
1392 
373 
1394 
1323 
1376 
1227 
1323 
1399 
1400 
1591 
1402 
1403 
1404 
1405 
1405 
1407 
1408 
1403 
1410 
141: 
1412 
1413 
1414 
1415 
1415 
1417 
1412 
1417 
1320 
1421 


1422 


ТАС 


READI1: 


REARDZ2: 


READS: 


READS: 


ОРСО OPRNOS 
CALL SUBSC 
XCHG 

POP M 

POP B 

RET - 

CALL SEARC 
POP B 

RET 

3 

OPCD OPRNDS 
EQU 3 


READ VAR С, МАЯ ... J] 


CALL GETS3 
PUSH H 

PUSH D 

сні ратаР 
мау 
ORA А 
JNZ 
INX H 
MOV 
SHLO 
ока A 

JZ DAERR 
RST 7 

08 3 

LXI 
RST 2 
JZ 


READ 
осх H 
INPHB 
ОВА а 

41 READ? 
CVERR 
GETST 
А, м 


"à; FIND ADOR 


. GET LEN CODE 


10: 26:46 15 АРВ 1975 PASE 40 
COMMENTS | 


;G0 POINT TO ENTRY 
i EXCHANGE | 
i GET ADDRESS OF STMT 
; GET NAME | 

; RETURN 


i RESTORE МАМЕ 
i RETURN 


є 


10:36:59 15 APR 1975 PAGE 41 
COMMENTS 


; GET VAR ADDR 

;SAVE H, Á 4 

; SAVE D, = 

¿SET DATA STMT POINTER 


i LOAD THE CHAR at 

i TEST. IF END OF STMT - 

; SRIF NOT END СЕ STMT » 
i POINT START NEXT STMT ( 

i LOAD LEN 

i SAVE ADDR 


: TEST IF END ЈЕ РОМ 
‚ BRIF OUT OF дата 
i ADJUST HR, L 


¿POINT “DATA? 

; COMPARE 

; BRIF IT IS DATA зтмт 
¿GET ADDR START 


; CLEAR D 

; POINT NEXT SYMT 

i LOOP NEXT STMT 

; SKIP SPACES 

;LOAD LO NAME 

| TEST. ИІ. 

; SRIF STRING 

; GO CONVERT VALUE 

i GET CHAR WHICH STOPPED Us 
; TEST IF COMMA 

; BRIF NOT 

; POINT NEXT 

» SAVE ADDRESS 

; RESTORE ADOR ОЕ VAR 

; STORE THE VALUE 

i RESTORE POINTER TO 37М 
GET THE CHAR 
i TEST IF СОММА 
; POINT NEXT 
;RECURSIVE IF 
; RESET 

; CONTINUE 

; TEST IF END OF ЗТМТ 


at 19 


; SRIF OK : - 
50 РЯПСЕЗЗ ERROR 
„00 GET STRING ( 
ЗЕТ CHAR | 9 

: TEST ТЕ COMMA кріт, 

















IMSAI 3080 БК BASIC VER=i. 3 


IMSAI SOSO 3K 


ATL 


ОРСА 


ОВСА 
село 
OSCE 
2550 
G3D3 
опа 
CREZ 
овоа 
OSiR 
обї 
ОЗЕ 
ОБЈЕ 
ОВЕО 
OSEZ 
оез 
сее 
Cae? 
OBE 
ОЗЕР 





OBJECT 


сассов 


187 


C2ACOS 
сзстоз 
23 

22F^21 
сзлаооз 


OBJECT 


СПО714 
TE. 

ЕЕ? 
СЗАОТА 
23 
CD2BiC 
110720 
є» 

23 


365? 
св 

600714 
свеате 
CD2B1C 
CDOFZO 
СЗЕ401 


LINE Таб ОРСО 
1323 2° 
1425 ока 
1425 JNZ 
1425 UP 
1427 КЕА07: INX 
1423 READS: SHLD 
142? JMP 


EASIC VER-I. З 


LINE 


1431 

1432 
1433 
1434 
1425 
1435 
1437 
1433 
1439 
1440 
1441 
1442 
1443 
1444 
1445 
1445 
1447 
144g 
1449 
1450 
1451 

1452 
1453 
1454 


таб 


OPRNDS 


$ 


ADDR, VALUES 


EXPR 
а, м 
ZNERR 
~ 
FBIN 


D, OUTA 


М, 211 
M 


м, A 


10:23: 45 15 APR 1275 PAGE 42 


COMMENTS 


; BRIF IS 

; TEST IF END 
; SRIF МОТ 

; G0 AROUND 

; POINT PAST 

; ЗАМЕ ADDRESS 
; CONTINUE 


10: 29:04 15 APR 1?7^5 РАЈЕ 43 


COMMENTS 


250 EVALUATE ADDRESS 

; GET DELIM 

; TEST IF сомма 

; BRIF NOT 

? SKIP OVER COMMA 

; CONVERT ТО BINARY IN A-REG 
; POINT INSTR 

¿PUT TO H, Ú 

; OUT INSTR 

; РОТМТ NEXT 

РОТ ADOR 

¿POINT NEXT 

;RET INSTR 

; RESTORE ORIG H.L 

i GO EVAL BATA BYTE 

; ERROR IF МОТ ENO ОЕ STATMENT 
; CONVERT ТО SINARY 

» 50 PUT THE BYTE 

;GQ NEXT STMT 


IMSAT 2080 2K BASIC VER- З | 10:29:35 15 APR 127% PAGE 34 (Ф 


. ADR OBJECT LINE TAG 


DPED ОРЕМОС COMMENTS 
О8Е2 1455 END: Ей з 
1457 ; 
ма 1453 р 
1452 ; STMT: END 
1460 i 
14561 i 
_  OgF2 3945621 1462 . LDA TAPES ; OET PAPER ТАРЕ SWITCH 
. ОВЕЗ ЕШОЗ 1453 2 2" ; TEST IF PUNCH COMMAND 
CEF? 227300 1354 JNZ | RDY ; BRIF NOT 
QEFA СОВ41а 1465 CALL HDRTL. » 50 PUT TRAILER 
CSFD 23910: 1965 4MP KEY ; TERMIMATE 


IMSAI 3080 SK РАЗІС VER=1. З 10: 22: 42 15 APR 1276 PAGE 45 
Ак OBJECT LINE TAG ОРСВ OPRNDS · COMMENTS . 
озсо 1452 STOP: EQU + 
1469 ; 
1470 ; STMT: STOP 
1471 ; 
ç : 1472 ; 
(200 CZDA31A 1473 СА: EOL ¿POINT ЕМО OF LINE 
(203 21D11E 1474 LXI Н, СТОРМ ; POINT MESSAGE: "STOP АТ LIME " 
0905 CD911? 1475 CALL TERM ; 50 WRITE IT 
Qe? СОЕСІВ 1475 CALL РЕСІМ : 50 PRINT LINE NUMBER „ә 
осо 2А6721 1477 LDA RUNSW i ВЕТ RUN ТУРЕ ( d 
· 090Е 27 1573 ОКА А ; TEST IT hi. 
0910 C2?300 1472 JNZ  RDY ; BRIF IMMED 
0913 326521 1430 STA MULTI i CLEAR MULTI 3W 
- 0915 204121 1421 LHLD STMT ; СЕТ ADDR OF PREV STMT 
0919 SE 1422 мом Е, М ; GET LEN . 
OFLA 1690 1433 MVI 0,0 ;CLEAR HI BYTE 
0912 19 1424 pap D ; POINT NEXT 
ооіп 23 1585 INX H ;POIMT LINE NUMBER 
O91E 227E21 1486 SHLD LINE ; ЗАМЕ. ADDR 
0921 110020 1487 LXI D,LINEN ; POINT AREA 
0924 ©0001? 1438 CALL LINEO ; 30 CONVERT LINE NUMBER 
0927 EB 143? ` XCHG FLIP TO H, L 
0928 2500 1490 MUT мо ; МАВК END 
0924 C2?2300 1421 JMP Яру ; GD TO READY MSG 

















14201 2020 2K КАЗТС VER=L. 3 


АШК 


0920 


IMSAI 2080 9K BASIC УЄлжі. 


АИ. 


0943 


QEJECT 


CDe3in 
3E01 
327221 
115621 
217421 
0502 
С0231С 
237401 


OBJECT 


CDO715 ` 


CDSBic 
87 


Сагоје ° 
4g 


on 
АЕ 
321420 
Li6DiF 


C2A01A 
3501 
321820 
ЕЛ. 

01 


FEZC 


сззвое 


с03518 


стада 
CDCO1A 


LINE 


1493 
1494 
1395 
1495 
1497 
1493 
1499 
1500 
1501 
1702 
1503 


1504 


1505 
1505 


LINE 


1508 
1509 
1510 
1511 
1512 
1513 
1514 
1515 
1516 
1417 
1518 
1519 
1520 
1521 
1522 
1523 
1524 
1525 
1526 
1527 
1523 
1529 
1520 
1531 
1532 


TAG 


см: 


>. 9 y w ч > 


ONS: 
омза: 


ONG: 


ома: 


NS: 


ANT: 


STWT: 


ОРСО OPRNOS 


EQU 5 


RANDOMIZE 


CALL EOL 
МУТ ñA, í 

$T RNDZW 
LXI D. TRNDX 
LXE HF, RNDX 
MVE в.з 
CALL COP YD 
«МР RIN 


3 
ОРСО OPRNDS 
EQU s 


10: 23: 52 1275 РЕЂЕ 42 


15 APR 
COMMENTS 


; ERROR IF NOT E£ND-5F-LiINE 

LOAD A ONE 

ЗЕТ SWITCH = TRUE RANDOM 

¿POINT “TRUE” RANDIN NUMBERS 

i POINT RECEIVE 

РЕСОР СТА ° 
$30 MOVE IT 

; CONTINUE 


L4 


10:30:09 15 APR 1275 PAG 57 


COMMENTS 


ОМ EXPR GOTO NNN ММММ ММММ 


GOSUB 


EXPR 
L FBIN 
ORA A 
SNERR 
С. А 
DCR с 


; G0 EVALUATE EXPRESSION 


¿OST BINARY NUMBER IN АСС 


; TEST RESULT 

; BRIF ZERO (ERROR) 

; SAVE VALUE 
i LESS ONE ç 
; СЕТ А ZERD ; 
; TURN OFF SWITCH 

iPOINT LITERAL ПП * 
i SAVE Hel. ADDRESS 

i GO COMPARE 

;BRIF ON... GOTO 

;ELSE, RESTORE H, L 

; POINT LITERAL 

; G0 COMPARE 

; BRIF ERROR 

; GET ON SETTING 

i SET SWITCH 

; DUMMY PUSH 

; ADJUST STACK 

; GET COUNT 

i TEST IT 

? BRIF VALUE í 

i ELSE SKIP BLANKS 

; TEST IF ЕМО ЈЕ LINE 

; BRIF 15 

i TEST IS COMMA 

; BRIF NOT 

; SKIP COMMA 

; CONTINUE 

50 TEST IF NUMERIC 

i ВАТЕ NOT 

; POINT NEXT 

; LOOP 

; 318 ONE FROM COUNT 

СООР TILL: JUST ВЕЕСАЕ TMT? 
; ERROR IF NOT END-GOF-LINZ 

; TEST ТЕ сомма 

i BRIF NOT 

; POINT NEXT 

> ДОР 

: TEST ТЕ NUMERIC 

» SRIF NAT 

¿GET THE LINE NUMBER 





kw 
2 э y X TY ^ Ut: г қ я ы : - F 
[М АП 3080 2K. PASIC vER=t. 3 ; | 10: 21: 01 15 APR 1974 РЕБЕ 43 - У 
АШК ОВЈЕСТ LIME ТАЗ ОРСО OPRNDS COMMENTS . 
седо 7E 1559 ома: му AM | ; | 
оз91 С0311А 1550 САМ. TSTEL HE D I 
0944 CAABOS | 1541 JZ ON? за 
og S i BRIF END 
ОРАТ 23 1542 INX H | : POINT NEXT 
22 CIAOOF 1552 „МР OMS : LJDP š 
aS С =; - ~ ки 
рам геена ло ONT: „САЩ, EOL i SET END OF LINE POINTERS 
> 29 1555 спа REL ? ВЕТ ТУРЕ (SOT ЗА GOSI 
OFRI 87 1544 ORA А ; TEST IT DU 50308» 
"S sess oi | JNZ бөзі ; BRIF GOSUE 
UAM ш ° LXI H.BEGPR ¿POINT START ЈЕ PROGRAM 4 
OSES C2FBO2 IS4? JMP GOTO? ; BR TO GOTO LooKuUP 
IMSA1 3080 3K BASIC VER=t. З 10:31:15 15 APR 1275 PAGE 39 
APLR OBJECT LINE TAG ОРСО OPRNDS COMMENTS 
OPEB 1571 CHANG: Есі) з 
1372; Я 
1573 ; ЗТАТЕМЕМТ: CHANGE Аз TO х - OR ~ 
1575; 
1975; CHANGE X TO As 
1575 ; | 
0388 210413 1477 ` TALL VAR ‚ NEXT WORD MUST BE VAR 
OSRE 7B 1573 MOV ЊЕ ; TEST TYPE 
O?9BF 87 1572 . ORA я ; SET FLAGS 
0920 F2F909 . 1530 JP CHAZ m i BRIF NON-STRING 
09723 СОЗБІВ 1531 CALL SEARC ; GET ADOR 
9975 05 1532 PUSH D | ; SAVE IT 
. 09Є7 116ЕЕ 1583 . LXI ЮО, TOLIT ; POINT "ТО" 
ОФСА 07 1534 “ват? ; СОМРАВЕ 
- Е 0908 C2A01A 525 «МІ SMERR i BRIF ERROR 
ӨЗГЕ С00418 1526 CALL VAR ; GET NEXT VARIABLE 
3 6211 74 1537 мом AD ; GET НІ NAME 
0902 F430 1533 ORI 123 ЗЕТ MASK FOR ARRAY 
0904 57 1539 |. MOV DA ; REPLACE 
оеп СОЗБІВ 1590 CALL, SEARC ¿GET ADDRESS 
0908 РЕ. ` 1591 RST 7 ; POINT START OF ELEMENT 0,0 
0909 ЕЕ | 1592 08 -11 
оопа 01 1999 POP D SU ` 32 GET PTR TO STM 
0998 ЕЗ 1524 |». XCHG i FLIP | 
сэти: срезіа 1525 CALL. EOL ;NEXT MUST ВЕ ЕЯ. 
GDF EB: 1596 XCHG FLIP AGAIN 
O*£O 01 . 15?7 POP D i ET ADDR STRING 
озі LA 1523 (рах D ; GET COUNT 
09E? 47 1529 MOV B.A ; SAVE IT 
ОУЕЗ 04 1600 INR в ; SUMP 
0964 CS 1601 CHAL: PUSH В ; SAVE CTR 
. Q9ES 05 1502 PUSH D ; ЗАУЄ ADDR STRING 
ОРЕФ ES 1503 PUSH H ; SAVE ароя NUM 
05€7 CD7012 1504 ` CALL FDEC я i CONVERT ТО Е. P. 
OSEA El 1605 POP H ;GET ADDR 
ОЗЕВ F7 1606 RST 5 ; STORE IT 
ОФЕС PF _ 1607 RST 7 ; POINT TO NEXT 
OPED FS 1503 08  -3 
СЕЕ 01 1599 POP 0 ; RESTORE STRING 
ОФЕЕ C1 1510 POP B ; AND CTR 
ОФЕО 13: 1511 INX D ;POINT NEXT CHAR 
GFL 1A 1612 LDAX D ;LOAD IT 
o9*2 05 1613 оса в | ; DECR СТВ 
OSF2 C2E409 1614 JNZ HAL ; LOOP 
| ОУБА СЗЕЗО) 1515 JMP RUN 
1516 ; 
А 1517; қ 
OFF? 7A 1613 CHAZ: MOV AD ОЕТ HI NAME 
` | OFFA F450 151? ORI 129 ; МЕКЕ ARRAY NAME 
ОФЕС 57 1620 MOV 0,4 ; ЗАМЕ 


OSEN CD2F LB 1521 сащ. SESRC ` ; GET ACOR 














IMSAI 
як 


OARSO 
0201 
CAOZ 
Ono 
ORS 
оға? 
VADA 
ORROD 
ОВОБ 
ово 
0812 
0815 
да:з 


3030 SK BASIC VER 3 


OBJECT 


OAL? 05 


OAS 
OAID 
OALE 
0612 
GAZO 
0021 
об22 
2625 
“тата 
(4127 
ова 
ого 
GAZA 
OAZB 
Qa2t: 
09.213 
ОАЗЕ 
Е 
за 
сазі 
0834 
0835 
ORZA 
0837 
оазз 
 пазв 
оазс 
сазе 


115920 ` 


F3 
ЕЗ 
соз81с 


Сп4ЕО6 
CZF 401 


о 


LINE TAG 


1622 
1623 
1624 
1625 
1526 
1527 
1629 
1622 
1630 
1631 
1632 
1633 
1634 · 
1635 
1636 ` 
1637 
1633 
163? 
1649 
1541 
1542 
1643 
1544 
1645 ^ 
1646 
1647 сназ: 
1548 
1649 
1650 
1551 
1652 
1653 
1654 
1655 
1655 
1657 
1653 
1659 
1560 
1651 
1662 
1663 


дес 


илы мн 


> 
= 


> 


10:32:91 13 APR 1975 


COMMENTS 
; POINT ELEMENT 0,0 


ЗАМЕ ON STACK 
POINT "ТО" 
COMPARE 

BRIF ERROR 

БЕТ NAME 

GET TYPE 

SET FLAGS 

BRIF NOT STRING 
BRIF NOT E-23-. 
GET ADDR 

БЕТ ADDR VAR 
SAVE 0, Е 

POINT STRING BUFFER 
ЗАМЕ iT 

LOAD IT 

POINT NEXT 


=e ` w „~ + ` => p “ 7: v + -' +» "^ = 


SAVE H, L 

CONVERT 

RESTORE x 
DITTO | 

TAVE COUNT 

BUMP IT 

PUT TO STRING | 
POINT NEXT СТА LOC. 
SAVE CTRS 

; NO D ADDR 

: LOAD NEXT 

; POINT NEXT 


„+ = -. ~ +: `. = т. 


; AND H ADDR 

;CONVERT 

; AND 0, Е : 
; AND CTRS 

; DECR CTR 

; LOOP i 

БЕТ ADDR OF УАЗ (STRING) 
; GO STORE IT 

; CONTINUE 





Ре: 30 


IMSAI 3030 SK BASIC VER=1. 2 " 10:32:25 15 АРА 1776 PAGE 71 
ANDR OBJECT LINE TAG BPCD OPRNDS CÜMMEMTS 
0242 1655 DIM: EQU + 
1555 ; 
1667 : STMT: DIM VARCA. B... с 
1563 i | 
1652 ; 
OA42 CDD41B 1570 CALL мая 500 GET VAR NAME 
0845 ЕЗАОТА 1671 JP NER ; BRIF МО { 
деда COSFIB 1672 CALL ЗЕЗАС $39 LOCATE THE VAR 
OA4B ЕЗ 1573 XTHL. ;PUT ADOR IN STACK, GET РТА TO ( 
обас FS 1674 PUSH PSW ; SAVE STATUS 
одар SEFF 1575 MVI 8,255 i TURN ON зи 
ФАЗЕ 226321 1675 STA  DIMSMH ; SET IT 
6452 CDO714 1677 CALL ЕХРЯ ; 50 EVALUATE 
0655 ЕІ 1678 POP PSW СЕТ STATUS 
OATS ЕЗ 1572 XTHL ; SWAP PTRS 
0057 05 | "1680 PUSH D. i SAVE ROW NUMZER 
сатз CS 1681 PUSH В i ЗАУЕ COL NUMBER 
OAS? 03 . 1532 . INX в ; INCREMENT COLUMNS 
ов5а 13 1283 | INX D ; AND ROWS | | 
ОАВ ES 1534 PUSH H SAVE H, Ú 
сазы FS 1635 PUSH PSW ; RESAVE STATUS 
0850 210009 1634 LXI но : ЗЕТ A ZERO 
GASO 12 1537 DIMt: DAD D ; TIMES ONE 
ва 0851 ОВ 1683 DCX B- ЭСА сока 
0062 78 1239 мом А, В ; ЗЕТ. НТ | 
, . . 0863 BL 1690 ORA С PLUS LO 
0854 6256008 1691 "МІ DIMI ; LOOP ( 
0657 РІ БИ РОР PSW ; БЕТ STATUS ; 
ода 01 1523 | POP D ; GET ADDRESS 
OAS? 2? 1524 DAD H . i TIMES TWO 
офед 29 1525 DAD M i TIMES FOUR. 
OG^B 010800 1424 CIT в.з ;PLUS 2 (NAME AND DISP) 
. Oté& FAAEO 1497 JM БЕШІМ СО RE-DIMENSION 
0471 ES 1493 PUSH H ; SAVE PRODUCT 
| 0472 OF 1599 DAD з ; ADD ІТ 
5 0473 ЕВ 1700 XCHG | ; FLIP/FLOP 
0874 2B 1701 DCX H я ; POINT LO NAME 
OATS 2B 1702 ^. Dex MH ; POINT HI DISP 
057^ 78 тоз MOV А, Е ; ВЕТ LO 
0477 ЗЕ 1704 сма ; COMPLEMEMT 
OA73 C501 1705 ADI 1 ; PLUS ONE 
OATA SF 1705 MOV Е, А ; RESTORE 
ой7В 7А 1707 | МОУ ALD БЕТ HI 
: ОАУС 2Е 1703 сма ; COMPLEMENT 
0470 СЕОО 1702 аст O ; PLUS. CARRY 
ОА7Ё 77 1710 MOV МА | ; STORE ІТ 
OHSU 28 1711 DCX H ; POINT NEXT 
· 0431 73 1712 MOV. ME ; STORE LO 
0582 EB 1713 XCHG i SAVE IN D, Е 
0683 El 1714 POP H ;GET PRODUCT 
UASA 44 1715 MOV BH ‚ СОРУ H,L 














[ASAI 9020 2K BASIC VER=1. З 


IMSAL 3080 ек 


ADDR OBJECT 


OACS 2B 
ОРАСС 72 
АСИ 23 
ОБСЕ 73 
ОАСЕ C22DOAÀ 


LINE 


1715 
1717 
1713 
1719? 
1729 
1721 
1722 
1723 
172$ 


1725 


1725 
1727 
1723 
1729 
1730 
1731 
1732 
1733 
1734 
1735 
1735 
1727 


11733 


1739 
1740 
1741 
1742 
1733 
1744 
1745 
1746 
1747 


BASIC VER={. 


ТАС 


DIMZ: 


01м4: 


RED IM: 


БЕН: : 


LINE TAG 


1757 
1758 
1769 
1779 
1771 


ОРСП 


мом 
XCHG 
POP 


ОРКМОЗ 


C, L. 


uooouocogoumy 
» p 


B 
x 

$ 

% 


10: 33:19 1% APR 1975 PAGE 52 
COMPENTS 


$; TO 8; Є 

ЗЕТ LOCAT 

; GET COLUMNS 

i POINT NEXT 

i MOVE LO COL ` 

; POINT NEXT 

3 MOVE НЕ COL 

i GET ROWS 

i POINT NEXT 

i MOVE НІ ROW 

: POINT NEXT 

; MOVE LO ROW 

; POINT NEXT 

i CLEAR ONE BYTE 
i POINT NEXT 

i DECR CTR 

; GET НІ 

; PLUS Là 

: LOOP 

i МААК END 

i JET РТА TO ЗТМТ 
i LOAD CHOR 

i TEST IF COMMA 
; BRIF МОТ 

? ЗКТР IT 

i CONTINUE T 


+ TEST END OF LINE 


i CONTINUES WETH PROGEAM 
+ COMPUTE LEN TO NEXT: 
; POINT LO NAME 

; POINT HI DISP 

‚БЕТ IT 

; SAVE 

; POINT LO DISP 

i GET IT 

г? SAVE 

і COMPUTE DIFF BETWEEN PRIOR ОІМ 
i GET HI DIFF 

; TEST IT 

BRIF PREV > NEW 

i BRIF PREV < MEW 
СЕТ LO DIFF | 

; TEST IT 

BRIF PREV < NEW 
¿PUT RODA IN H, L 

г РОТИТ НЕ COL 

5 СЕТ COL 

; MOVE HI 

з POINT LO COL 

; MOVE LO 

; GET ROW 


ХО: 24:20 15 APR 1974 PAGE 52 
COMMENTS | 


i POINT НІ ROK 
; MQVE НІ 

; POINT LO БОМ 
; MOVE LO 

i ВОМТТМЧЕ 





IMSAI 2020 SK BASIC VER=1. 3 


ALR "OBJECT 


9882 | 


0892 
оапз 
URLS 
Cans 
0805 
0407 
оара 
OAD? 
сага 


саро. 


сако 
ОВЕ1 
OnE 2 
ове 
ORES 


ОДЕ. 


ORES 
One? 
OARA 
OPER 


- ` секс 


ОВЕ: 
OREO 
OAF 1 


, ОАЕ? 


сағ 
ОВЕ 4 
Of 7 
ORFS 
САРВ 
OAFC 
САРТ 
ОДРЕ 
OROL 
. 9804 
ово 
08056 
ово 
OROA 
оков 
OEOC 
оноп 


ОКОБ 


iMSAI 8080 SK 


аш 


9819 
2811 
ок 
Ока 
скі 
ORIS 
он17 
ова 3 
3819 
GELA 


OBJECT 


zF 
72 
ЗЕ 
SEOO 
57 
£1 
1? 
ге 
ЕС 
с? 


LINE 


1773 
1774 
1773 
1775 
1777 
1773 


“1779 


1730 
1731 

1732 
1733 
1734 
1735 
1736 
1737 
1733 
1739 


1770 


1721 
1792 
1723 
1724 
1725 
1726 
1727 
1723 
1729 
1309 
1301 
1902 
1903 
1304 
1305 
1304 
1307 
1208 
1309 
1810 
1811 
1312 
1813 
1314 
1315 
1816 
1317 
1318 
131? 
1320 
1321 
1322 


1823 


BASIC VER-i. 


ТАЗ 


QPCO ОРАМОЗ 


SUBS: ENU $ 


, 
; 
і 
і 
і 
ғ 
. 
# 


зив:: 


5182: 


SUBS: 


LINE ТАЗ 


1224 
1325 
1326 
1327 
1323 
194? 
1330 
1921 

832 


L332 


COMPUTES 
INPUT: B 


SUBSCR ADDR 
нез ROW NUMGER 


H HAS ADDR МАМЕ 


PUSH D 
RST 7 

DB -4 
MOV OM 
DCX H 
E, M 
&D 
CMP B 
SNERR 
SUB1 
А, Е 
сме С 
SNERR 
DCX H 

D, M 
DCX H 

E, M 


OPRNOS 


Е, А 
А, H 


ACI 9 
О. А 


(13T SUB) 
D HAS COL NUMBER (2ND SUB) 


10: 34:25 | 


COMMENTS 


; SAVE COL 

; ADJUST H, L 

+ BY FOUR 

i GET HI 

i POINT LO 

з БЕТ LO 

; СЕТ НІ 

ài COMPARE 

; BRIF EXCESS 

i BRIF NOT EQUAL 
$ GET LO 

; COMPARE 

? BRIF EXCESS 
¿POINT HI COLS 
; LOAD ІТ 

; POINT LO COLS 
LOAD IT ` 

; SAVE ADDRESS 

; SAVE SUB COL 

i SANE DIM Сом 5 | 

: MAKE COLS = MAX ~ | (ROL OUNT „Ө 
; GET A ZERO M 
; GET HI 

;PLUS LO 

a BRIF ZERO 

; ADD ОМСЕ 

; SUD OUNCE 

; LOOP 

? SET DIM COL 

i GET SUB COL 

$ GET HI 

і COMPARE 

» BRIF GT 

; BRIF NOT ZERO 

;GET LO : 

$ COMPARE у 
i БЕДЕ GT 
; ADD ТО PROD 
; TIMES TWO 

; TIMES FOUR 
; GET LOW 

¿ COMPLEMENT 
; PLUS ONE 


10:35:19 13 APR 12765 PAGE 55 


COMMENTS 


SAVE IT 

i БЕТ НІ 

i COMPLEMENT | 
; PLUS CARRY 
; ЗАМЕ - 

i ВЕТ ADDR (0,0? | v 
$ СОМРУТЕ СТ, ЈУ RIGHT SIDE | : 
ADJUST H, L. ; ( 





; RETURN 








- 


IMSAI 2080 SK BASIC VER=1.2 ` 10:35:23 15 APR 1975 РАЏЕ.55 





айра OBJECT LINE TAG ОРСО ОРЕМОЗ COMMENTS 
OBRIR 1335 FIN: EQU з 
1336 : 
1337 + FLOATING POINT INPUT CONVERSION ROUTINE 
1923 ; ; 
1339 : THIS SUBROUTINE CONVERTS AN ASCII STRING СЕ CHARACTERS ТО T 
1940 ; POINT ACCUMULATOR. THE INPUT FIELD МАУ CONTAIN ANY VALID N 
1841 ; INCLUDING SCIENTIFIC (МММ. NNMME--NN) 
1342 ; ТНЕ INPUT STRING IS TERMINATED WITH ANY NON-NUMERIC CHARACT 
1243 ; ; 
1 1344 ; | 
0818 ЕВ 1345 XCHG ;PUT ADOR то D.E 
ORÍC 214820 1245 LXI H, FACE ; POINT FLOAT АСС 
ОВЕ 0605 1247 MVI B.S ; SYTE COUNT 
9821 CD231C 1342 CALL ZEROM ; GO ZERO IT 
0824 CDSEOB 1849 CALL FINS ‚СЕТ INTEGER PORTION 
0877 OEOO 1250 MI С.О ; INIT DIGIT COUNT 
Ов? FEZE 1351 CPI г.“ ; TEST IF DEC-POINT 
OKZB C2210B | 1852 JNZ FINZ ; BRIF NOT 
 OB2E CD9EOB 1353 CALL FING ; GET FRACTION 
G831 3A4CZO | 1954 FIN2: LDA FTEMP ; СЕТ EXCESS COUNT ` 
0834 31 1355 доб с ; PLUS FRACTION COUNT 
083% ЗЕ 1356. MOV С.А ; ЗАМЕ ІТ 
OR2A ЕЕ4< 1357 CPI "в". ; TEST ТЕ ЕХРОМЕМТ 
овза C28708 | 1398 . JNZ FING ; BRIF NOT 
: окзв OS 1259 PUSH p ~- ` i SAVE PTR 
Tes ORI 214C20 1260 LXI м. ТЕМЕ ; POINT SAVE ARES 
ы ОНЗЕ 71 1361 MOV ме ;SAVE DIGIT COUNT 
4 она9 23 1862 INX H ; POINT NEXT 
« 0841 Е? 1853 RST 4 ; SAVE АСС 
0842 214920 1254 LXI н,ғасс ; POINT FACC 
OEA*S 0404 1265 MVI 5,4 ; BYTE COUNT 
0847 CD331C 1365 CALL ZEROM 350 ZERO IT 
бъда 01 1357 POP D ; RESTORE PTR 
овав 13 1342 INX D ;SKIP ^E* 
овас СПӘЕОВ 1559? CALL. FINS ; GET NUMERIC EXP 
ова 254820 1870 LDA РАСС+З ; GET INTEGER 
0852 4F 1371 MOV СА ; SAVE IT 
ОБЕЗ 344820 1972 LDA FACC ; GET SIGN 
ова 87 1373 ова А n А и 
Он57 F2SDOR 1374 JP FING ; BRIF POSITIVE 
OSA AF 1375 XRA А ; CLEAR ACC 
. OSB 91 1876 зив с ; REVERSE SIGN 
QC ағ 1377 MOV С.А ; RESTORE : 
0850 214C20 1972 FING: (ХІ ЊЕТЕМР ; POINT SAVED NUM 
ORSO 79 i379 MOV Ac ; СЕТ DEC EXP 
` ORAL 86 1380 ADD м ; PLUS PREV. 
` ©0842 4Е 1281 MOV С.А ; SAVE IT 
оваз 23 1992 INX H ; POINT NUMBER 
0244 DS ‚ 1333 PUSH D ; SAVE PTR 
ORAS EF 1224 RST 5 гоёо IT 
ов Di 1822 РОР 0 ; ВЕЗТОНЕ РТА 











IMSAI 2030 ЗК EASIC VER-1. 2 


рик OBJECT LINE TAG DPRD 
0857 214320 133» FINS: LXI 
ОНАЙ 7Е 1337 мом 
QESB F413 13323 ВАТ 
О8»0 77 132? | MOV 
OBSE CDi1nDOE 1330 ALL 
0871 7? 1391 "OV 
0872 ЕВ 1322 XCHG 
9873 87. 1973 FINS: ORA 
0874 23 |. 132$ RZ 
0873 ЕЗ 1395 PUSH 
9875 219516 132% LXE 
0979 Елзьов 1527 · JM 
087C 3D 1378 DCR 
0870 FS 139$ PUSH 
OB7E CD6COE (200 САЩ. 
0831 FL 1201 FINS: РОР 
0832 EL 1902 POP 
ОЕЗЗ C3730B 1203 JMP 
OHSS ЗС 1204 FIN7: INR 
UB37 FS 2 1205 PUSH 
ORZI СОЕЗОЕ 1905 САЩ. 
 окзв C3310B 1207 | JMP 
OLSE 14 L29232 FINS: (САХ 
ОЕЗЕ FZ2D 1909 СРІ 
ОК?! САЗЕОВ 1210 ШІ 
0694 FEZD 1911 СР: 
9075 CSM 1212 МІ 
op ЗЕЗО 1913 MUT 
08333 324320 1214 зта 
ОЕУЕ 13 191$ FIN9- . INX 
OR?F LA 1215 Зах 
ова) РЕЗО 1917 РТМА:  СРІ. 
оваг. D3 1213 RC 
ОВАЗ РЕЗА 121? СРІ 
OBRAS DO 1720 RNC 
она Of - 1221 · ОСА 
ОНА7 244970 1922 ~ ALDA 
окад БОРО 1223 ANI 
OHAL САВБОВ 1224 JZ 

` GRAF 214620 1925 СХІ 
ORB? 34 1225 INR 
оваз сз?ков 1227 „ПАР 
0055 CDCEOB 1222 FIND: CALL 
бовв LA 1922 (бах 
OBRA 2502 1230 ЯМІ 
ORBC 2198820 {933 · LXI 
OSRE 35 1232 ADD 
овсо 77 1233 _ MOV 
OSO ав ^ - 123% ocx 
ОВС2 7E : Say мом 
оксз CECO 172% аст 


IMSAI 3080 €K BASIC уте з ° 


АШОК OBJECT LINE Таб | | ОРФО 
ORCS 77 s 1797 MOV 
ORCS 28 1233 ocx 
овС7 ТЕ 192? MOV 
овсз CEOO 1240 ACI 
ОЕСА 77 1941 MOV 
овса СЗРЕОВ 1942 ЈМР 
ОБСЕ 05 1243 FINC: PUSH 
OECF СОЄ908 1744 SALL. 
овса 215120 1245 ых? 
OBIS FT 1746 RST 
ове CDESOB 1947 AL 
ОБО? СОЕ?ОВ 1948 CALL 
ORUC 114820 1949 LXI 
GROF 212420 | 1970 LXT 
ОБЕ? 0603 1251 MVI 
CHES DOPSOF 1757 CALL 
ОВЕ7 01 1293 РОР 
OLER СЭ 1954 RET 
ORE? 214020 1975 FIND: (ХІ 
ORES 54 1255 "Ov 
HEN TD 12=7 мом 
OLEE. 0603 _ | 1938 MVI 


ОБЕО 1332505 1239 «МР 


ЗРАМОЗ 


OPRNDS 


М, я 
B 
А, М 
о 
М, А 
FINS 
D 
FIND 


Н, ЕТЕМР»5 


5 
FIND 
FIND 


D, FACC*-3 
Н, ЕТЕМР+В 


з. 3 
FAODT 
D 


My PRS +3 


D, н 
= L. 
в, 3 
FADDT 


10: 35: 37. 15 APR [274 PAGE 57 
COMMENTS 


i РОТМТ ‘SIGN 

‚ОО IT 

i SET UP FOR FLOAT 
; RESTORE 

:50 NORMALIZE 

i ОЕТ DEC. EXP 

i RESTORE H, L. РТА 





i TEST DEC EXP 


i RETURN IF ZERO . 

;SAVE ML е 
; POIMT CONSTANT: 10 

? BRIF DIVIDE MEZDED 

i DECR COUNT : 

i SAVE COUNT а 

СО MULTIPLY BY 10 


+RESTORE COUNT 


і RESTORE ALL 

i CONTINUE | 

i INER COUNT 

i ЗАУЕ (COUNT 

: BO DIVIDE BY 10 

; LOOP 

; СЕТ CHAR 

;TEST IF PLUS | 

i: BRIF IS _ S 
ELSE, TEST IF NEG 
; GRIF NOT 

; TEST SIGN BIT 

; STORE IT 

i POINT NEXT 3 
i ЗЕТ СНАЯ 

$ TEST IF LESS ZERO 
; RETURN IF ІЗ 

; TEST IF GT NINE 
PRETURN ТЕ ІЗ 

i POUNT THE DIGIT 

; GET MSB 

; LEFT НАСЕ 

i DRIF ZERO 

i POINT EXCESS COUNT 
; А00 ONE 

; LOOP 

; со MULT BY 10 

; GET THE- DIGIT 

i MASK OFF ZONE 

; POINT АСС 

; 800 

; STORE 

i POINT NEXT 

; LOAD 

CPLUS “CARRY 


10: 27: 43 15 APR 1275 Pace «3 
COMMENTS 


; STORE 

i POINT NEXT 

: LOAD 

; PLUS CARRY 

; STORE 

i LOOP 

; SAVE РТА 

; TIMES TRO 

i POINT TEMP 

i SAVE ІТ „> 
; TIMES THREZ 

i TIMES FOUR 

¿POINT RESULT 

iPOINT ZAVES 

i BYTE COUNT ; 
i TIMES TEN’ - 
; RESTORE PTR f 

i RETURN ( 

; POINT касс | та 

; COPY H.L - 
; TÜ D, Е 

i BYTE | COUNT 

i ADD & RETURN 














- 


lezal 3080 2K BASIC VER=1. З 


ADR 


ОВЕЗ 


ОВЕЗ 
ОБЕ S 
ОВЕ7 
ORF? 
ORFA 
ORFI 
ORFF 
OCU 
0604 
осо 
OCA 
особа 
оє08 
особ 
ОСОЕ 
ОСТІ 
0С14 
0617 
ОСІ? 
осів 
ОСЛЕ 
ӨСІР 


oc 


0525 
0627 
QC2A 
oczo 
QC2E 
O31 
оса 
0037 
осза 
Єзї 
ос4о 
OC SZ 
0645 
осаз 
GG 9 
оса 
оса 
ос 


OBJECT 


113820 


LINE 


1961 
1962 
1963 
1364 
1253 


. 1966 


1257 
1253 
1759 
1770 
1271 
1972 
1973 
1974 
1973 
1976 
1977 
1978 
1979 
1220 
1231 
192892 
1233 
1234 
1925 
1385 
1987 
1923 
128? 


1970 
1221 


· 1992 


1993 
1994 
199% 
1225 
1797 
1998 
1299 
2000 
2001 
2002 
2003 
2004 
2003 
2006 
2007 
2008 
200? 
2010 
2011 


10: 33:16 15 APR 1975 PAGE 59 

ТАЗ ОРСО OPRNDS COMMENTS : 
FOUT: EQU $ 
; FLOATING POINT OUTPUT FORMAT ROUTINE 
Ë š 
; THIS SUBROUTINE CONVERTS А NUMBER IN THE FLOATING POINT Acc 
; TO А FORMAT SUITASLE FOR PRINTING. THAT IS, THE NUMBER WILL 
; SCIENTIFIC NOTATION (+N. NNNMNE-NN) IF THE ЕХРОМЕМТ ІЗ > 59 
; OTHER WISE IT GILL БЕ ZERO SUPPRESSED Z0TH DN THE LEFT ОЕ.Т 
; PORTION ANO ON THE RIGHT OF THE FRACTION. 
ке 

LXI D,FACC+3 ; POINT LSB ; 

крах D ¿LOAD IT 

ORI 7 ; MASK FOR OUTPUT 

STAX D ; REPLACE 

CALL FTEST УЗЕТ SIGN OF NUMBER 

MVI м," 7 ; DEFAULT SPACE 

JP FOUTO ; BRIF NOT MINUS 

MVI м, 2—“ ; MOVE пазн 
БОШТО: INX H ; POINT NEXT 

| SNZ FOUT2 ;BRIF NOT ZERO 

MVI М, 707 ; MOVE THE ZERD 

INX H ; POINT NEXT - 
FOUTI: MVI м," " i MOVE SPACE FOLLOWING 

RET ; RETUPN «є : 
FOUT2: LDA FACC ; GET SIGN & EXP 

. " "CALL FEXF- ; EXPAND EXPONENT · ^ 

ЗМІ  FOUTV >BRIF NOT ZERO 

MVI А, 12$ ; SET МЕБ 
FOUTV: ANI 123 ;ISQLATE 

STA DEXP ; SAVE SIGN 

PUSH H ; SAVE H, L 
FOUT2: LDA касс ;5ET SIGN & EXP 

CALL РЕХР ; EXPAND EXP 

ENT Y € ; TEST RANGE 

JP FOUTS ; BRIF IN RANGE 
FOUTA: LXI Н, DEXP ; POINT DEC. EXP 

INR M ;INCR IT 

LXI Н, TEN i POINT CONST: 10 

JP FOUTS ; BRIF РОЗ. 

CALL FMI ;i MULTIPLY 

ЈАР FOUTS ; LOOP 
FOUTS: CALL FDIV ; DIVIDE 

„ме FOUTS i LOOP - 
FOUTS: CPI 5 ; TEST HIGH RANGE а 

JP FOUTS i BRIF 5 OR GREATER 

LXI Н, ЕТЕМР ¿POINT ЗАМЕ AREA 

RST 5 ; STORE IT 

LDA FACC ; GET EXPONENT 

CALL FEXP ; ЕХРАМО 

MI C5 ; DIGIT COUNT 

CALL FOUTE ; SHIFT LEFT 





IMSAI 3080 2K BASIC VER=t. 3 


вије 


OCT 
965% 
OCS? 
occse 
OCSE 
0C40 
0с53 
0054 
0057 
осва 
"осъп 
ОСЕЕ 
0071 
074 
9877 
ос7а 
oC7C 
OC7F 
0с32 
085 
осе2з 
осев 
осес 
оса 
UCSF 
0C?2 
OCI 
(C255 
QC?5 
0:27 
0023 
0079 
OCIB 
ОСРЕ 
ОСАО 
OCA1 
OCAZ 
осаз 


осад ' 


оса 
OCAS 
ОСА? 
ОСАС 
OCAE 
ОСАҒ 
осво 
OCBL 
осв2 
освз 
OCHS 
OCB? 


OBJECT 


FEOA 
ҒАФООС 
21 $20 
EF 
СЗ2АОС 
С0920С 
ағ 


324370 


соззос. 


214С20 
F7 
созвос 
соггзос 
114820 
214F20 
0504 
CD25SOF 
срогоє 
22630С 
сзееос 
214870 
54 

50 
9504 
C39SOF 
FAZO 
E1 

23 


LINE 


20:2 
2013 
2014 
2015 
2016 
2017 
2013 
2017 
2020 
2031 
2022 
2025 
2023 
2025 
2025 
2027 
2023 
2029 
2020 
2031 

20:32 
2033 
2034 
2035 
2036 
2037 
2032 
2032 
2040 
2041 

2042 
2043 
2044 
2045 
2046 
2047 


TAG 


FQUTU: 
FOUTT: 


FONT: 


FAUT: 


FETA: 


2043 . 


204? 
2020 
2051 
2052 
2053 
205% 
2055 
2055 
2057 
2033 
2099 
2060 
2051 


2062 


FOUTB: 


FOUTC: 
FOUTD: 


DPED 


QPRNDS 


10 

FUT] 

Н, ЕТЕМР 
5 

FOUTS 
FOUT? 

a 

FACE 
FOUTS 

H, ЕТЕМР 
5 

FOUTS 
FOUTS 

D, FACC+3. 
Н, FTEMP+3 
B, 4 
FADOT 
FAUT? 
FOUT7 
РОЈТН 

Н, БАСС+3 
D, H 

=, L. 

В. 4 

FADD 

48 | 


É 
FOUTC 


` ç LOOP 


i BYTE COUNT 


10: 37: 29. 
COMMENTS 


; TEST IF DECIMAL DIGIT 
. $3 BRIF СТ 

i POINT SAVE AREA 

;LOAD IT 

; QNCE MORE 

; PUT DIGIT 


i CLEAR 


¿ND OVERFLOW 
ж” 


$ TIMES 
; POINT 
i ЗАУЕ 

; TIMES 
; TIMES 


15 АРВ 1275 PASE 59 


STATUS 


TEMP. 


4 
3 


; POINT +3 

; POINT +2 

; BYTE COUNT 
500 TIMES 10 
; PUT DIGIT 


: 30 AROUND 

i POINT NUMGER 
; COPY H, L š 
; ТО 0, Е 


130 ADD ° 

¿DEC. ZONE 

; ВЕТ RETURN ADDR 
EXCH WITH ТОР (PTR) 
; PUT DIGIT 

; POINT NEXT 

; GET COUNT 

i TEST IF 15T 

i BRIF NOT 

» МОЧЕ DEC. PT. 

; POINT NEXT 

i EXCH WITH RTN 

$ DECR COUNT 

; RETURN 

; SAVE BIT COUNT 
i CLEAR ACC FLAGS 
i AND OVERFLOM 

; POINT LSB 


; BYTE COUNT 

? СЕТ A SYTE 

? SHIFT LEFT 

; STORE 

i POINT NEXT 

; DECR CTR 

; LOOP 

; DECR BIT CTR 
; LOOP 














` 


ТМЗАЕ 8080 SK BASIC VER=1. 3 


ADDR 


осва 
COBB 
ОСВС 
OCRE 
OCEF 
occ2 
осс4 
осс3 
оссь 
OCC? 
оссв 


. QCC 


ОССЕ 
ОССЕ 
осоо 
оси! 

осиз 
OCHS 
оср4 
ос» 
оси? 
осп 
оС 
ОСЏЕ 
(CDF 
ОСЕО 
OCE 


ОСЕЗ | 


оса? 


OCES 3 


ОСЕА 
СЕВ 
oczc 
ОСЕЕ 
ӨСЕРІ 

өсе 
ОСЕЗ 
OCF7 
ОСЕЗ 
OCF? 
OCFH 
LFD 
ОСЕЄ 
ОСЕР 
Ono? 
огоз 
(D04 
0006 


0007 


огоз 
OROA 


OBJECT 
с? 


LINE TAG ОРСП GPRMDS 


2953 RET 

2064 FOUTH: POP M 
2055 "I М. Е? 
2056 INX MH 
2067 LA DEXPF 
2053 PVE М. “+? 
206? РОУ р.а 
2070 ока а 
2071 JP FOUTI 
2072 МУТ М, 77 
2073 ANI 127 
2074 сма 

2075 INR А 
2075 MOV D.A 
2077 CMA 

2073 INR а 
207? FQUTI: INX H 
2030 PUSH H. 
2031 MVI Е, =! 
2032 FOUTJ: INR Е 
2033 SUI 10 
2084 JP FOUT.J 
2085 ADL 10, 
2035 MOV В.А 
2037 MOV QE 
2033 CALL FOUT? 
2089 МОУ А, В 
2090 CALL FOUTS 
2091 POP HB 
2022 NUI м," r 
2023 мом AD 
2094 JRA А 
2095 JP FOUTK 
2096 CPI <2 
2097 RC 

2093 JMP РОСТІ. 
2099 FOUTK: CPI 5 
2100 е . RNC 

2101 FOUTL: MOV С.А 
2102 мит 8,5 
2103 FOUTM: МГ М," ^ 
2104 BCX н 
2103 e DOR в 
2106 NZ — FOUTM 
2107 XCHG 

2109 MOV ^E 
210 sul 5 
2110 MOV а 
2141 мом AD 
2112 зв: 0 
2113 MOV ња 


10:40:44 15 APR 1975 PAGE ^1 


COMMENTS 


; RETURN 

; GET PTR 

; ЕХРОМЕМТ 

i POINT NEXT 

; GET EXPONENT 

$ DEFAULT 

i SAVE NUMBER < 

; TEST IT 

; ERIF РОЗ 

і ELST, DASH 

; STRIP DUMB SIGN 
i COMPLEMENT 

PLUS ONE (TWOS СОМР) 
; ЗАМЕ ІТ 

i НЕЗСОМРЦЕМЕМТ 

i PLUS ONE 
POINT NEXT 

i SAVE РТА 

i INIT CTR (TENS) 
: SDD BNE 

» LESS 10 

; LOOP 

i CORRECT UNITS 

i SAVE UNITS 

i СЕТ TENS 

i OUTPUT 

; СЕТ UNITS 

; QUTPUT 

; GET PTR 

i ЗРАСЕ AFTER 

; GET DEC EXPON 

; SET FLAGS 

; BRIF POS. 

i TEST FOR MIN 

i RETURN IF LESS THAN <2 
; 00 AROUND ` 

; TEST IF TOO SIG 


` ¿RETURN IF & ОВ GREATER 


i SAVE EXPONENT 

; СТА 

i SPACE OUT EXPONENT 
POINT PRIOR 

i DECR СТЕ 

i LOOP 

; FLIP/FLOP 

i GET LOW BYTE 
iPOINT TO DOT 

¿PUT DOWN 

i GET HIGH 

i IN CASE OF BORROK 
; PUT DOWN 











IMSAI 3030 3K BASIC VER=1. 3 


ADOR- OBJECT LINE TAG 
опо 79 ` ` 2114 MOV 
огос B7 2119 . оға 
OLON CAIEOD 2115 JZ 
ой:0 РАЗЗОВ 2117 JM 
0113 46 2113 FOUTN: МОМ 
0014 23 2119 INX 
0115 7E 2120 MOV 
0015 70 2121 . MOV 
оп17 28 2122 DCX 
оріз 77 2123 MOV 
opi» 22 2124 INX 
· ОА OD 2125 DCR 
още C2120D 2126 JNZ 
otis ЕВ 2127 FOUTO: xCHG 
OGLE 7E 2129 FOUTP: MOV 
0020 FESO 2129 | ` CPI 
0р22 C22ROD 2130 JNZ 
0125 3520 2131 MYI. 
0127 2B 2132 | DCX 
on29 C3IFOD 2123 „ме 
Оп2В БЕЗЕ 2134 Евита: CPI 
0021 23 ` 2135 INX 
ОЕ CO 2135. ав. ae 
0027 29 2137 DEX 
онза 3420 2133 MV I 
932 с? 212» RET 
ооз РЕРЕ 2140 FOUTR: CPI 
0035 224108 2141 JNZ 
· 0533 28 | 2142 DCX 
“OS? 7Е - 2153 ` мо 
‘OHSS. ЗАЗЕ 2144 | мут 
оззс 23 2145 INX 
опор 77 2145 мау 
ОНЕ C21EOD 2147 JMP 
. 0імі 28 2148 FULTS: DCX 
0042 7E 2142 мом 
. 0142 3530 2150 MVI 
. 0845 23 2151 INX 
004 77 2152 MOV 
0047 62 21899 5 MOM ` 
0043 58 2154 MOV 
0149 0605 2155 MVI 
оран 28 2155 FOUTT: DCX 
SC ТЕ 2157 мом 
опар 23 2152 INX 
onam 77 2157 MOV 
орав 28 2150 DCX 
0050 05 2151 DCR 
OMSL C24BOD 2162 JNZ 
0054 362Е 2153 ММІ 
0055 CS1EOD 2144 „ме 


IMSAI 3030 EK KASIC VER=1. 3 


ALOR OBJECT LINE TAG ОРСО 


ОРСО ОРАМОЗ 


А, С 

я 
FOUTO 
FOUTR 
8, М 
н 
А, M 
м, В 

H 

“а 

B 

C 
өтм 


A, М 
707 
FOUTA 
м, cuv 


МА” e 


255 


FITS 


OPRNDS 


10:41:57 15 APR 1276 РАЈЕ 52 
COMMENTS 


; GET ЕХРОМЕМТ 

; TEST SIGN 

; BRIF ZERO 

;ERIF NEGATIVE 

; ЗЕТ HIGH BYTE 

; POINT NEXT 

; GET LOW BYTE 

i SHIFT DOT TO RIGHT 
; POINT BACK 

; MOVE THE DIGIT LEFT 
POINT NEXT ` 

i DECR СТА 

; LOOP 

; POINT END 

i СЕТ А DIGIT/DOT 

; TEST FOR TRAILING ZERO 
; BRIF NOT 

i SPACE FILL 

; POINT PRIOR 

; ЦООР 

; TEST FOR TRAILING пот 
; JUST IN CASE МОТ 

; RETURN IF NOT 

; RESET PTR 

SPACE IT OUT 

; RETURN 

; TEST IF -1 

i ELSE -2 

; POINT SIGNIFICANT 
; GET THE CHAR 

$ MOVE THE DOT 

; POINT NEXT 

: SHIFT THE DIGIT 

; GD ZERO SUPPRESS 

i POINT ONE TO LEFT 
PICK UP DIGIT 

; REPLACE 

i POINT RIGHT 


ФРЈТ THE DISIT 


; GET LOW ADDR 

i POINT LAST DIGIT А 
$ СТА 

; POINT PRITO 

; SET А DIGIT 

i: POINT 

¿PUT IT ONE TO RIGHT 
; POINT 

; DECR CTR 

; LOOP 

; MOVE THE DOT 

; CONTINUE 


10: 43:2 15 APR 1974 PAGE 53 


COMMENTS 














IMSAI 3080 SK РАЗТС VER=1. 3 


ALDR 


CCRA 
осзв 
ОСЕС 
OCRE 
OL EF 
оссо 
осс4 
OCS 
CCCS 
OCC? 
оссв 
 QCCD 
ОССЕ 
ССР 
оспо 
оси! 
осо 
Cuz 
ос04 
005 
QC uz 
осі» 
оста 
oCUE 
OCDF 


‚ ОСЕО 


. ОСЕЗ 
ОСЕ4 
ОСЕ7 


OCES : 


ОСА 


OBJECT 
с? 

El , 
3645 


LINE 


2043 
2064 
2065 
2054 
2067 
2058 
2059 
2070 
2071 
2072 
2073 
2074 
2075 
2075 
2077 
2073 
2072 
2020 
2081 


· 2082 


2933 


ТАЗ 


FOUTH: 


FQUTI: 


“FOUTS: 


2084 ` 


2035 
2035 
2037 
2033 
2039 


FOUTK: 
FOUTL: 
FOLITM* 


че © 


ОРСП OPRMDS 


RET 

POP Н 

РМГ M.^E^ 
INX н 
ыла  DEXF 
MVI М7» 
мом р.а 
ОКА A 
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COMMENTS ` 


; RETURN 

; GET PTR 

; EXPONENT 

i POINT NEXT 

; GET EXPONENT 

; DEFAULT 

i SAVE NUMBER < 

; TEST IT 

; BRIF POS 

i ELSE, DASH 

i STRIP DUMB SIGN 
i COMPLEMENT 
iPLUS ONE (TWOS COMP? 
i SAVE IT 

i ЛЕ-СОМРЕСМЕМТ. 

; PLUS ONE 


.4 POINT NEXT 
i ЗАМЕ РТВ 


; INIT CTR (TENS) 

; ADD. ONE 

i LESS 10 

> LOQP 

i CORRECT UNITS 

i SAVE UNITS 

i СЕТ TENS 

; OUTPUT 

¿SET UNITS 

; OUTPUT 

i ОЕТ РТА 

; SPALE AFTER 

i GET DEC ХРОМ 

; SET FLAGS 

; BRIT 23$. 

; TEST FOR MIN 

i RETURN ТЕ LESS THAN -2 
; GO AROUND 

; TEST IF ТОО SIG 

i RETURN IF 4 OR GREATER 
i ЗАМЕ EXPONENT 

; CTR 

i SPACES OUT EXPONENT 
i POINT PRIOR 

i DECR CTR 

i LOOP 

; FLIP/FLOP 

;GET LOW BYTE 


¿POINT TO DOT 


¿PUT DOWN 
i СЕТ HIGH 
; IN CASE ОҒ BORROW 
; PUT DOWN 





IMSA? 2030 3K BASIC VER=1. 3 


IMSAI 3030 SK HASIC VER=1. З 


ALUR OBJECT LINE TAG ПРСВ 


ADR. OBJECT LINE TAG ОРСО ОРЯМОЗ 
ов 72 ` 2114 MOV А, с 
огос 87 AMI —. ORA а 
OLON CA1EOD 2116 JZ FOUTO 
око РАЗЗОВ 2117 JM  FOUTR 
0113 46 2113 FOUTN: MOV B.M 
0014 23 2119 INX H 
0115 7E 2120 MOV ALM 
0014 70 2131 "мом м, В 
0117 28: 2142 DCX н 
0013 77 2123 мом М, А 
oni» 23 2124 INX H 
«А OD 2125 OCR с 
обін C2130D 23126 ` УМЕ  FOUTN 
ОПАЛЕ EB 2127 FOUTO: XCHG 
СИЕ 7Е 2129 FOUTP: MOV AM 
0020 РЕЗО 2122 ANE “де 
0022 C22ROD 2130 JNZ  FOUTOG 
0125 3520 2131 MVI М,” г 
0127 28 2132 DCX H 
©7123 231200 2133 ЈЕР  FOUTP 
ONB РЕЗ 2134 Евита: CPI 7.“ 
строго 23 ` 2135 INX H. 
onzE СО 2135 RNZ 
OF 28 2137 DCX H 
опзо 3420 2133 MVI м 7 г 
9:32 C? 2139 АЕТ 
ONZ БЕБЕ 2140 FOUTR: CPI 2%5 
0035 с29100 2141 ЗМІ FOUTS 
O33 2 2142 DCX H 
Ф059 7E - 2143 ` MOV ALM 
OU3A. 352Е 2145 MVI м, ^. 7 
опзс 23 2145 INX H 
оп2п 77 2146 MOV М, А 
ONZE C21EOD 2147 ` JMP FOUTO 
оп41 28 2142 FOLITS: DCX H 
0142 7E 2149 MOV A.M 
0143 3530 2150 MVI м, 707 
0055 23 2151 INX H 
0045 77 2152 MOV МА 
9147 52 2153 ` мом HO 
9143 48 2154 MOV LE 
0149 0606 JM с. MVI Р, А 
оран 2B ` 2156 ЕОМТТ: DCX H 
опа 7E 3197 мом А, М 
оп4т 23 2153 INX H 
ОЗЕ 77 2157 MOV ма 
опағ 28 2159 DCX H 
0159 os 2151 DCR в 
0051 6248090 2162 УМЕ  FOUTT 
0054 242E 2153 MUI м," 2 
0054 C21EOD 2144 „МР  FOUTO 


OPRNDS 


4 ERIF NEGATIVE 
‚ 4 POINT NEXT 


- TEST IF ~; 


PUT IT ONE TO RIGHT 


10: 41:57 15 APR 1974 PAGE 42 
COMMENTS 


; GET EXPONENT 
; ТЕЗТ SIGN 
; BRIF ZERO 


i JET HIGH BYTE 


; GET LOW BYTE 

i SHIFT DOT TO RIGHT 

; POINT SACK 

; MOVE THE DIGIT LEFT 

i POINT NEXT 

> DECR СТА 

; LOOP 

; POINT END 

i GET A DIGIT/DOT о 

; TEST FOR TRAILING ZERO 
; BRIF NOT 

; SPACE FILL 

i POINT PRIOR 

; ОБР 

; TEST FOR TRAILING пот 
i JUST IN CASE МОТ 

i RETURN IF NOT 

i RESET РТА 

$ SPACE IT ОИТ 

; RETURN 


i ELSE -2 

; POINT SIGNIFICANT 
: BET THE CHAR 

; MOVE THE DOT 

s POINT NEXT 

i SHIFT THE DIGIT 
100 ZERO SUPPRESS 
¿POINT ONE TO LEFT 
;PICK UP DIGIT 

; REPLACE 

i POINT RIGHT 

i PUT THE DIGIT 

i GET LOW ADDR 

i POINT LAST DIGIT . 
i СТА. ; 

i POINT PRITS 

? ЗЕТ A DIGIT 

; POINT 


; POINT 

; DECR СТА 

; LOOP 

; MOVE THE DOT 
i COMTINUE 


10: 43:20 15 АРА 1975 PAGE 53 


COMMENTS 








т 


ALLIR 


оре 


0053 

ODSA 

0058 

опес 

опр 

05° 

0753 

Она» 

0049 

Ones 

они 

OLA 

ones 

ой72 

: 0073 
oe O74 
: оз? 
оп?а 

оңун 

on?c 

- 'OD7E 

onsi 





0182 5 


орез 

` OBS 

опа? 

ове 

Ones 

ОЕ 

оц 

опез 

0094 

0175 

опза 

орек 

2 Chee 
; орер 
oneg 

ОпА: 

Ono 

0085 

9147 


спав : 


оба» 
опав 








OBJECT 


25 


214320 


LINE 


216% 
2167 
2162 
2169 
2170 
2171 
2:72 
2173 
2174 
2175 
2175 
2177 
2179 
217? 
2120 
2131 
2132 
2133 
2134 
2135 
2136 
2197 
2193 
2139 
2190 
2191 
2192 
2293 
2194 
2125 
2198 
2197 
4123 
2199 
2200 
2201 
2202 


ТАЗ 


<> 
{> 
5 
é 
š 
š 
е 
e 


FADD3: 


FADDA: 


ADD: 


IMSAI 8080 SK BASIC УЕА=1. З 


ОРСП 
EQU 


FLOATING 


INX 
MOV 
ОВА 
JZ 
DCX 
CALL. 
JZ 
LXI 
ВАХ 


РЕМО 


5 


RSTS 
0, РАСС 
D 

РЕХР 
B, ñ 
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COMMENTS 


POINT ADD THE NUMBER АТ (Н.О) TO THE РАСС 


i POINT FIRST DIGIT 

: LOAD IT 

; TEST IT 

; BRIF ZERO 

; POINT BACK 

: GO TEST SIGN GF FACE 
i JUST LOAD IF FACE = Q 
i POINT РАСО 

i СЕТ EXPONENT СЕ ЕАСС 
i GO СЕТ EXPONENT 

; ЗАМЕ ЕХРОМЕМТ 

i ET EXPONENT GF AGOR 
i G0 GET EXPONENT 

i SAVE THE EXPONENT 


i GET DIFFERENCE ЈЕ TWO EXPONENTS 


; BRIF THEY^P"E EQUAL, 

? BRIF DIFFERENCE ІЗ POSITIVE 
i COMPLEMENT ACC й 
¿PLUS ONE (TuO^S COMPLEMENT) 
; COMPARE DIFFERENCE TO МАХ 
: BRIF LESS 

; СЕТ EXPON OF ADDUEND 

i GET TRUE DIFFERENCE AGAIN 
; BRIF FACC > ADDER 

i ELSE, ADDER > Facce 

i SAVE DIFFERENCE 

i SAVE EXPONENTS 

‚СЕТ ADDR OF TEMP АСС 

i MOVE LENGTH 

; 50 COPY 

; GET EXPONENTS 

i BET DIFFERENCE 

в JUST ADD IF ZERO 

; DEFAULT 

i ЗАМЕ DIFFZRENCE 

i ВЕТ РАСС EXPON 

; MINUS ЕТЕМР ЕХРОМ 

; BRIF TEMP MUST ВЕ SHIFTED 
; POINT FLOAT АСС 

i GET. EXPONENT, SIGN 


; STRIP EXP SIGN 

¿PUT BACK 

‚БЕТ THE EXP 

; STRIP OFF OLD ЄХРОМ 

i МОЧЕ ADDER ЄХРОМ ТО IT 


IMSAI 3080 ЗК BASIC УЄВзі. 3 


ARR OBJECT LINE Таб ОРСО 
опас 77 в, мом 
опап 23 2213 INX 
ONE FL 221? ҒА006: РОР 
OLAF oF 222 мом 
орко 0603 2221 EAO0D7: ММІ 
опв2 AF 2222 хва 
0083 ES 2223 PUSH 
0084 CDAOOF 2224 CALL. 
0087 EL 4224 POP 
опез OD 2226 DCR 
‚ОЗ? C2BOOD 2227 JNZ 
QURG 2223 FADD?: Есі) 
оньс 114320 2112? E41 
ОПРЕ 214020 2230 LXI 
OD ЗА 2231 LDAX 
оз АЕ 2232 ARA 
00:14 FAEFOD 2223 JM 
ос? 114820 2234 LXI 
ос» 214220 2235 UXT 
оосо 9403 222% " ММІ 
ОССЕ COSSOF 2237 CALL 
9002 D2750F 2222 ме 
070$ 214320 223? LXI 
©1103 7Е 2240 мом 
OLI E430 2241 АМІ 
оша 47 2242 мом 
опис 7€ 2243 мом 
Onlin CO220F 2244 CALL, 
опе? 3c 2245 INR 
OREI Е7Е 2245 ANI 
OEZ во 2247 ÜRA 
OLEI 77 2243 MOV 
ODES 23 224? INX 
ОБЕ 37 222 STC 
OLE? 0503 2251 MVI 
оре? CDAOOF 2252 САЩ. 
OLEC C37S0F 2233 «ме 
Cher 2254 FADDA: EQU 
ОПЕР 215020 2443 GXI 
оре? 0404 2026 MVI 
0084 CD241C 2587 CALL. 
ODF7 114820 2253 FADDB: LXI 
OLFA 214F20 2259 LXI 
OBED 0403 ` 2260 MVI 
ОБЕ CD3AOF 2251 CALL. 
око? DZiDOE 2262 „ме: 
OFOS 114820 2243 LXI 
ogog 214520 2264 LXI 
CEOB 0408 2255 MVT 
окоп CD2D1C 2266 CALL 
СЕ10 114820 2247 LXI 


(МЗАТ 2090 2K BASIC УЕК=1. З 


кора OBJECT LINE TAG OPCD 
ОБ13 215020  .2253 LXI 
ОБ15 7E 226? мом 
017 ЕЕЗО 2270 XRI 
ORT? 12 2271 зтах 
ОЕЗА C2F7OD 2472 MP 


OPRNDS 


10:44:25 15 APR 1?74 PAGE 55 


COMMENTS 


; REPLACZ 

; POINT FIRST DATA BYTE 
i GET DIFFER 

; SAVE iT 

$ ОР СТА (INNER) 
; INIT CARRY ТО Z 
; SAVE ароя 

à GO SHIFT 

? GET ADDR 

i DECR. СТА 

ОР 


i POINT SIGN OF ADDUEMD 

? AND SIGN OF ADDER 

: СЕТ SIGN ОҒ ADDUEND 

i COMPARE THE TWO SIGNS 

; BRIF SIGNS DIFFER 

; POINT LOW END 

; DITTO 

; BYTE COUNT 

; GO ADU TWO TOGETHER 

;BRIF NO CARRY 

: GET ADOR ЈЕ АСС 

i LOAD THE ЕХРОМ * 

i ISOLATE SIGN 

; SAVE ‘SIGN 

; GET ЕХРОМ 

; 30 GET EXPONENT 

i ADD ONE ie 
; ISOLATE | 
; PUT BACK SIGN: ` 

i PUT ІТ DOWN 

; POINT DATA 
; SET CY 

i СТА 

550 SHIFT IT 

; RETURN 


i POINT TEMP AREA 

i PREPARE TO SAVE ACC 
i GO COPY 

i POINT LOW ACC 

i AND LOW TEMP 

; CTR : š 
; GO SUBTRACT THE TUO) 
i BRIF NO BORROW 

; POINT ACC 

;POINT TEMP 

; CTR 

; GO COPY 

i POINT 
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COMMENTS 


; TEMP 

;GET ORIG ACC ЕХРОМЕМТ 
;REVERSE SIGN 

; PUT ТО NEW ACC 

; 20 SUBTRACT AGAIN 
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41606154 


OFID 


9Е25 


ORS? 
NESS 
GES? 
ОЕЗА 


OBJECT 


Qa d 


C2230& 


ОЕЗ0 7E 


ОЕЗЕ 
ORL 
90Е42 
0Е54 
QE $7 
ORS? 
GEAR 
ОЕЗН 
QES 
OEAR 
СЕЗЕ 
VEJO 


МСАТ 3032 SK 


CDS30F 


CS2B0E 


АПК OBJECT 


0Е53 


203201) 


LINE TAG ОРОО OPRNDS Ns COMMENTS 
2274 FNORM: ЕО) ж 
22 і 
2275 i 
== i NORMALIZE THE FLOATING ACCUMULATOR : : 
2173; THAT IS. THE FIRST ВТ MYST BE SIGNIFICANT 
2279: 
2230 ; 
2231 LXI H.PACCe3 i POINT LSB 
2232 . MOV ам ¿LOAD IT 
2233 BCX ^H i POINT PRIOR 
2294 ORA M š : i MERGE 
2239 DCX н ; POINT PRIOR 
2236 ORA м ; MERGE 
2237 «МІ FNRMÍ ; SRIF МОТ ZEPO 
2233 DCX H ; POINT SIGNLEXP 
223? MOV Ма i SET ТО ZERO 
2229 RET | ; RETURN 
2221 FNRM1: MOV А, ЗЕТ MSE 
Gata ORA. А : ; TEST IT 
2293 JM FTSST iBRIF NORMALIZED 
2294 INX H ;РІМТ TO 
2473 INX MH i LSB 
2225. "VI 8,3 ? ВЕТ NUMEER ЗЕ CYTES 
2297 ХКА а ; LEM СУ 
2299 ЕМЕМ2: MOV 8,М i ЗЕТ A BYTE 
2299 RAL ° ¿LEFT 1 ВІТ 
2200 мо» PA i STORE THE. BYTE 
2391 DCX H ; POINT NEXT 
2392 DCR в ; ОСА CTR 
2303 «ЧІ | FNRM2 ; LOOP ы 
2304 OAV OFM ЗЕТ ЗІОМФЕХР 
2305 - CALL. РЕХР. - a= EXPAND EXP То 2 BITS 
2305 | DCR ñ . ,MINUS ONE n ~ 
2307 CPI 23 i TEST IF ММВЕВЕЈОМ 
2303 ғыт OVERR ; BRIF ІЗ 
230» PNT 127 ; ISOLATE LEAST 7 BITS - 
2319 мом В.А ; ЗАУЕ 
2314 МО АМ i ЗЕТ SIGN 
| 23212 - ANI 12 i ISOLATE. 
2313. ORA в ; MERGE 
2314 POV МВ ; STORE 
2313 INX н ; POINT MSB 
2315 ME ЕМЕМ: ; LOOP 


BASIC МЕКЕ. 


63 
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LINE TAG ОРСО ОРЕМОЗ COMMENTS : 
2319 FSUB: EQU з 

2319 ; 

2320 ; 


2321 » FLOATING POINT SUBTRACT THE NUMBER AT (H.L) FROM THE РАСС 
2322 ; : : 


2323: 

2324 INX н ; POINT FIRST BATA BYTE OF SUDTPA 
2325 MOV AM 72080 IT 

232 ORA A ; TEST 

2327 AZ ЕТЕЗТ ? BRIF ЕКО 

2323 DCX m ; POINT BACK 

2329 LXI О, ЕТЕМР ¿ET TEMPORY STORAGE AREA 
2330 . МУІ 8,5 $ MOVE LEN 

2331 САЩ. СОРУН iGO COPY ` 
2332 LXI Н, РТЕМР ¿POINT NEW арса 

233 р мом А, М i СЕТ EXPONENT 

2324 XRI 123 » REVERSE SIGN 

2335 MOV PLR ; БЕРЬАСЕ 

2336 „МР FADD #50 ADO THE THO 











E 
> 


, IMSAI 3020 ЗК PASIC VER=1, 7 10: 47: 34 19 арр 127. 


ANOR OBJECT LINE ЛАЗ | ОРСО OPRNDS COMMENTS 
оғыс . 2338 МА: eau s 
2339 i 
2340 ; : ; 
нн ) FLOATING POINT MULTIPLY THE MUMEER АТ ML: TO THE хасу 
2242 ; 
OE&C CD7SOF 2344 CALL FTEST ; TEST РАСС 
осе СЗ 2345 RZ ;RETURN IF ZERO 
ок7о 23 2345 INX H i: POINT LST DIGIT OF MULTIPLIER 
ОЕ71 ЈЕ 2247 MOV AM ;LOAD IT срв 
ОЕ72. 28 2348 DCX H ; RESTORE 
0873 87 2249 ORA A ; TEST IF ZERO 
©Е74 CA2900 2350 JZ  RSTS ;GO LOAD ТО FACC IF IT ІЗ 
ОЄТУ 114320 2251 FMULI: LXI D,FACC ; POINT EXPONENT 
ОЕТА 1А 2352 LDAx D ;LOAD IT 
ОЕ7В СОззок 2555 CALL РЕХР ; 30 GET EXPONENT 
QE7E 47 2254 MOV В.А ;SAVE IN В 
: 2355 MOV А, М ; G i 
OESO СрӘЗОҒ 2354 CALL. ге ХР beg ET па a 
OE83 20 2357 ADD Б ; ADD ЕХРОМЕМТЗ TOGETHER 
OES4 CDASOF 2252 CALL FOVUN : 30 SEE IF OVERFLOW/UNDERFL 
ОЕЄУ ES7F 2259 ANI 127 ЗЕР SION | tr E 
= 4 $ TURN OFF SIGN 
OES? 47 2350 MOV в,а ; SAVE 
ОЕВА 18 2261 LDAX D ;GET SIGN OF ЕАСС | 
став AE 2342 4 ; PRODUCT SIGN 1$ NEG IF TWO SIGN 
OESE BO 2254 ORA B ;PUT SIGN ; ETH 
OEF 12 2365 STAX D UP TN не 
OE90 115520 2256 LXI D,FTEMP«» ;POINT TEMP STORAGE 
OE93 0403 2267 MVI в.з ; BYTE COUNT 
oE?S 22 2353 INX H ;POINT MSD 
об?» CD2DiC 2362 CALL СОРУН ;MOVE MULT 
; ;MOVE MULTIPLIER | 
ОЕР 214C20 2270 LXI Н, FTEMP ;POINT DIGIT 7 ЈЕ RESULT 
ЕС 0504 2371 MVI B5 i LOOP ста f 
OESE 603312 2272 CALL ZEROM - 250 ZERO EIGHT BYTES 
EAL 114220 2373 LXI 0, РАСС+1 ; POINT t tort oF ace 
OEA4 0603 2374 MUI B3 ;LOOP CTR z 
EAS 1А 2275 FMULT: LDAX D ‚ВЕТ. AN ACC DIGIT РАТЕ 
ОЕАТ 77 2275 MOV ма ;PUT TO TEMP STORAGE 
АВ AF 2277 хва а ; ZERO А | 
ОБА? 12 2373 STAX р: : ; CLEAR ACC 
OEAA 13. 2325 INX D i | 
аа ;POINT NEXT 
OEAB 23 2280 INX H ; DITTO 
5ЖАС 95 2381 DCR B ;DECR CTR 
OEAD С2АФОЕ 2222 ЗМІ FMULS ; LOP 
OERO OE13 2283 MYVI с, 24 ; OUTTER c 
OEEZ 0603 2224 FMULA: MVI В, 3 a Бы 
OERS 215520 2235 (ХІ Н,ЕТЕМР»Ф ; POINT MULTIPLIER 
OEB7 AF 2234 XRA ; CLEAR CY 
OERS ТЕ 223? FMUL7: MOV AM ; СЕТ BYTE т 
OEE9 ДЕ  . 2589 RAR ; SHIFT RIGHT 
IMSAI 3080 SK BASIC VER@1. 3 10: 49:12 15 APR 1974 PAGE 70 
ALUR OBJECT LINE TAG || ОРСО OPRNDS COMMENTS 
OERA 77 2339 HOV MA ; PUT DOWN 
OERB 23 2220 INX H ; POINT NEXT 
ОЕВС 05 2391 DOR a . ;DECR CTR 
OEHD С2880Е 2292 JNZ FPUL7 ; LOOP 
OECO D2CEOE 2393 JNC  FMULS : BRIF ZERO ВІТ 
ОЕСЗ 114620 2374 LXI 0, ЕТЕМР+2 ; POINT RESULT 
ФЕС 215420 2295 (ХІ H.FTEMPe3 ;POINT MULTIPLICAND 
OEC? 0505 2395 MVI 8,6 i SIX BYTE ADD 
ОЕСВ CD950F 2227 CALL FADOT #60 ADD 
ОЕСЕ 0606 2398 Ема 9: MVI Р, ;SIZ BYTE SHIFT 
GEDO 215420 2399 LXI  Н.ЕТЕМРе8 ; POINT MULTIPLICAND 
ОЗ АЕ 2400 XRA A i CLEAR CY 
СЕ 7€ 2401 FMUL9: MOV Ам ; GET BYTE 
OEDS 17 2402 RAL E OT 
OEDS 77 2403 MOV М, А ; PUT ВАСТ 
oEn7 28 2404 DCX H ;POINT NEXT BYTE 
онов 05 2405 оса B ча o agis 
ЧЕТ C2DAO0E 2405 JNZ  FMUL? ; LOOP - 
QEL. OD 2407 OCR с : DEC SIT COUNT $ 
WENO 22202 . 2408 JNZ ЕМ 5 ; CONTINUE i ri 
OREO 23100Е 72409 ЭМР FNORM ; 30 NORMALIZE | 

















IMSAI 3030 SK BASIC VER=1. 3 


и OBJECT 


OES 


G3 


ОЕЕЗ СИЗО 
ORES C3 
ОБЕ7 23 
ORES ЈЕ 
JEEP 28 
ОЕЕЗ 87 
CEEB Саогвта 
ОБЕЕ 75 
ОЕЕЕ СОЗЗОЄ 
ОБР? 37 
ОЕЕЗ 114820 
QEF LA 
ОБР7 СрӘЗОҒ 
` QEFA 90 
ОЕЕВ 3C 
ОЕЕС CD6S20F 
QEFF ES7F 
OFOL 47 
OFO2 1A 
ОҒОЗ AE 
оғо4 Е580 
UFOS BO 
оғо7 12 
CFOS ESO 
око? із 
OFOR 214C20 
OFON 3600 
UF OF 23 
Б CHILO 0603 
ОБІД ЗА 
OFLS 77 
ОЕ14 АР 
(515 12: 
Fis 23 
ОЕ 17 .13 
СЕЗ оз 
ОРІ? C2120F 
OF1C 01 
OF ID 0603 
ОБЈЕ 13 
0F20 3600 


оғұ2 23 


923 CD241C 
OF26 OE18 
0523 114725 


IMSAI 3080 3K 


ADF OBJECT 
OF 23 
OF ZTE 
OFSO 
OF 33 
OF 34 
©З? 
ОРЗС 
OF SE 
OF 41 
OF 42 
OF AS 
OF 45 
ок4а 
оғ49 
OF SA 
OF GR 
ЗС 
ФЕЗП 
OF SO 
OFS 1 
URE 
OF SS 
OFS7 

 OoFsa 
OF SD 
OF SA 
Or В 
OF SE 
OF SF 
OF SZ 


215320 
0604 
СПЗАОЕ 
D2420F 
14420 
213320 
9504 
соззок 
37 

3F 
0603 
214820 
7Е 

17 

77 

28 

05 
C2430F 
АР 
0504 
213520 
7Е 

17 

TT 

28 

от 
руці З ад 
09 
222З0Ғ 
C31DOE 


LINE ТАЗ 0200 OPRNUS 
2411 РОГ ес) + 

2412 ; 

2413 ; 

24514 ; FLOATING POINT OIVIDE THE 
2413 i 

231% i 

2417 CALL FTEST 
2418 RZ 

2419 INX M 

242 мо“ ALM 
2421 REX м 
24822 GRA я 
21923 «2 OVERR 
2424 POY А, м 
2425 САЩ. РЕХР 
242 мом S.A 
242 LXI 0. ЕАСС 
24238 „пех D 

2422 CALL РЕХР 
2430 sug B 

2431 INR А 
2432 CALL. ЕОМОМ 
2433 BMI 127 
2834 моч Вв, а 
2935 крах D 

243% хха м 
2437 ANI 123 
2433 ове В 

243 STAX р 

2359 PUSH H 

2441 INX B 

2342 LXI Н,ҒЕТЕМР 
2443 мет Мо 
2444 INX H 

2 мет 9,3 
2445 ЕФІУЗ: Крах D 

2447 MOV MLA 
2443 хна А 

2449 зтах D 

2549 INX H 

2451 INX D 

2552 OCR B 

2433 ЗМІ ЕВТУЗ 
2454 РОР D 

2455 MI в,з 
2655 ІМХ D 

2457 MVI мо 
2453 INX H 

2452 CALL COPYD 
2560 MVI С, 24 
2451 FDiVS: LXI 0,ЕТЕМЕФЗ 
BASIC VER=1. 3 Ш 
LINE TAG ОРСО OPRNDS 
2552 LXI H,FTEMPe7 
2463 МУТ 8.4 
2454 CALL FSUBT 
2443 «МС FOIVS 
2566 LXI D.FTEMPe3 
2467 LXI М, РТЕМР+7 
2452 MVE B4 
24457 CALL FADOT 
2470 STC 

2471 FDiV&: СМС š 

2472 MVI 8,3 
2473 ХІ мн, РАСС+3 
2424 FDIV7: мом ALM 
2474 ка. 

2475 МОУ M.A 
2377 DCX н 

2473 | DCR B 

247? JNZ  FDIV7 
25:20 ха а 

2421 MVI 8,% 
2492 ХІ Н.ҒТЕМРеЗ 
2433 FDIVS: MOV AM 
2454 RAL 

2423 MOV. MA 
2425 DCX нм 

2437 DER 8 

2323 NZ  FDIVS3 
2439 DER є 

2490 JNZ FOIVS 
2491 JMP  ЕМСЕМЧ 


10:49:57 15 APR 1975 PAGE 71 


NUMBER АТ (HIL) INTO THE FACC 


TEST IF FACC ZERO 

; RETURN IF ІТ {5 

;POINT 137 DIGIT OF DOIVISOR 
: LOAD IT 

¿POINT BACK 

i TEST IF ZERO 

i DIVISION BY ZERO = ERROR 

› ОЙО EXPONENT ОҒ OIVISOR - 
3509 SET EXPON 

: SAVE IT 

i POINT EXPONENT OF DIVIDEND 
LORD IT 

i GQ) GET EXPON 

i SUBTRACT THE TWO EXPONENTS 
: PLUS ONE 

; 60 SEE IF QVERFLOW/UNDERFLOW 
; TRUNCATE TO 7 8175 

: SAVE IT 

; GET EXPONENT 

; IF SIGNS ARE Епа, RESULT ІЗ Р 
i MASK ЈЕР UNNEEDED BITS 

i CREATE SIGN OF AUOTIENT 
¿PUT TO РАСС 

; SAVE ADDR 

¿POINT MSO OF DIVIDEND 
¿POINT TEMPORARY STORAGE 

? CLEAR MSB 

i POINT NEXT ` 

ООР СТА 

«ет BYTE FROM FACC 

¿PUT TO ЕТЕМР 

i CLEAR а 

i ZERO FACC 

¿POINT NEXT 

: DITTO : e 
EDECR CTR 

ООР 

i GET ADDR 

ЦООР СТА ` | 

г POINT MSO OF DIVISOR 

i CLEAR MSB 

: POINT NEXT 

; GO HOVE IT 

> CUTER LIOF СТЕ 

; POINT DIVIDENO 


10:52:04 15 APR 1974 PAGE 72 
COMMENTS | 


; AND DIVISOR 
; CTR 

i GO. SUBTRACT 
: BRIF NO GO 
: POINT DIVIDEND 
i; AND. 0191508 
; CTR : 
» 50 ВЕ-РОО 

i TURN QN су 
; REVERSE CY 
; СТА 

; POINT 1.38 

: LOAD BYTE 

; SHIFT LEFT 
i REPLACE 
¿POINT NEXT 


; POINT DIVIDEND 
;LOAD BYTE 

i SHIFT LEFT 

; REPLACE 

; POINT ENXT 

; DECR CTR 

i LOOP 

i DECR OTR СТА 

; LOOP 

і NRAPUP 


: eR 


ІМ<АІ 2030 OX BASIC VER! 2 10:53:43 15 SPR 127% PAGE 73 


бора OBJECT LINE ТАЗ DPED ОРАМОЗ COMMENTS 
` (FAS 2493 FOVUN: 2005. í 
2424 ; 1 > 
2495 ; ТЕСТ ЕХРОМЕМТ FOR OVERFLO OR UNDERFLOW | ( 
2435 i 
OF45 E7 2497 ОБА A i TEST ІТ 
OF&& F26FOF 2428 ЈР  FOV1 ; BRIF POS. 
OF59 FECI 2499 CPI 123 ; TEST FOR MAX NEG 
ОЕФВ 00 2509 RNC ; RETURN IF NO UNDER. 
ОЕБС C3331 2501 МР OVERR ;60 ERROR 
OFAF FESO 2202 FOV1: CPE 54 | ; TEST MAX POS 
OF71 03 2503 RC ¿RETURN ТЕ NO OVER. 
0272 СО?814 2504 MP ОМЕЛА, ; 60 ERROR . 
IMSAI 2030 SK BASIC vER=L. З 10:54:12 15 APR 1275 PAGE 75 . 
АШПА OBJECT LINE ТАЗ ОРСО OPRNOS COMMENTS 
oF75 | 2506 ЕТЕЗТ: EQU + 
2507 i 


2508 ; TEST THE SIGN OF THE NUMBER IN THE FACC 
2209 ; RETURN WITH S & Z SET TO SIGN 


2510 ; 

OF7S 344220 211 . LDA РАСС+Ь ‚ s ВЕТ MSD 
OF73 BT 2612 | ORA А ; TEST ГТ 
OF7? СЗ 2513 . RZ ; RETURN IF ZERO 

. FA 2584320. 2514 LDA FACC | ОЕТ ЗІОМУЄХРОМ BYTE 
QF7D F57F 2515 ORI 127 ; TEST SION ВІТ ONLY 
OF7F 3442820 2515 (ра FASS i READ EXPON BYTE 
OF32 27 2517 RET >: ; THEN RETURN 


~ 


~ 


- ` 
е - - 
. ” - ` 
© З d ` & 
- ,” 
` - 


IMSAT 3080 SK BASIC УЕЯжі. З 10:54:26 15 APR 1975 PAGE 75 ( 


АНА OBJECT LINE TAG OPCO OPRNDS COMMENTS 
OF BB | 23519 FEXP: EQU Ф 
i 4520: 
2521 ; EXPAND ЕХРОМЕМТ INTO 3 BINARY BITS 
2522 ; ; 
OF82 E57F 2523 ANI 127 ; MASK MANTISA SIGN 
OFBS C540 2524. ADI 64 


i PROPAGATE СНАЯ SIGN INTO LEFT 


0257 ЕЕ4О 2523 ` XRI 54 RESTORE ORIGINAL SIGN ВІТ 
OFS? C? 2526 RET ; RETURN 











ІМЗАІ 3020 ©К BASIC VER=1. 3 10: 24: 40 15 APR 1975 PAGE 74 





AUDR OBJECT LINE TAG ОРСО OPRNOS ` COMMENTS 
OF BA 2523 FSUBT: EQU s | 
2529 ; : 
о : SUBTRACT THE TWO MULTIPRECISION NUMBERS (0,2) & (H, L) 
со <А? ғ Е З 
ھ0۴3‎ АЕ 2532 ХА А ; TURN ЈЕР CY з 
ОЕЗВ LA Ж FSB1: Крах D : GET A BYTE 
ОЗС ФЕ 2534 588 м i SUE OTHER BYTE 
оғар i2 ° «5639 STAX р (PUT. DOWN 
ОЕВЕ 18 2536 вех D ¿POINT NEXT 
OFSF 28 253 сх H ; DITTO 
окоо 05 2523 DR B i DECR СТА 
OF9} С2ЗВОР 2522? JNZ FSB} ; LOOP 
дЕФ4 C? 2540 ВЕТ i RETURN 
{МАХ 2030 2K BASIC УЕА=1. 2 10:55:13 15 АРА 1975 РЕЗЕ 77 
` ANOR ОВУЄСТ LINE TAG ОРСП OPRNDS COMMENTS | 
orez 2542 FADDT: EQU s є 4 
2343 ; M š 
° 2344 ; ADD TWO MULTI-PRECISION NUMBERS (D,E) м (H, L) 
2545; | 
0295 AF. 2546 ХАА A ; CLEAR STATUS 
(FOS 1А 2547 FADI: Крах D СЕТ BYTE 
0607 SE ` 2548 ADC M ; ADD OTHER BYTE 
оғ 12 2549 STAX D i PUT DOWN 
UFO? 18 2550 pcx D ; POINT NEXT 
дЕРА 23 2551 pcx H ; DITTO 
OF9B 05 2552 оса 8 | i DECR LOOP СТА 
ОБУС C2940F 2953 JNZ FADL ; LOOP 


ОЕЗЕ С? 2554 RET ; RETURN 








IMSAI 3020 SK BASIC УЄЯжі. 3 


вира OBJECT 


ЭРАЮ 


оғао 7E 
` OFA? ДЕ 
ОБРА? 77 
оғаз 23 
ока4 OS 
OF AS C2AOOF 
оғада C9 


IMSAI 5080 ск 


ALOR OBJECT 
оға” 


оға? АЕ 
ОРАЛ FS | 
OFAR CD7SOF 
ОЕРЕ CABTOF 


ОБС5 РАВООР 
OFC7 219216 
OFCA СОЗЗОЄ 
ОЕСВ СЗВ7ОЕ 
(FIO 21321Е 


OFDS С05900 | 


ОЕП FL 
OFU7 FCRAL i 


OFDA 212420 


OFDD F7 
ЧЕЈЕ 384220 
OFEL CDS2OF 
OFES FPZERGF 
ОРЕ7 FEFD 
OFE? па 


QFZA 21321Е 
O0FED СОЕЗОЄ 
OFFO 212320 
ОРЕЗ FT 

OFF4 212320 
ОЕЕУ Срьсоє 
ОБРА 212620 
(РЕВ £7 

OFFE 212220 


LINE T 


2336 FSHFi: 
2557 ; 


2453 ; INCREMENTING SHIFT RIGHT 


2939 ; 


BASIC VER=1. 
LINE TAG 
2558 SIN: 


, 
, 
^ 
2572; USES 
, 
n 
А 
У 


2293 SINI: 


2585 ЗІМ2: 
2398 ; INIT 


2510 SINSA: 


COMPUTE SINE OF 


FIRST, 


ОРСО ÚPRNDS 


EME $ 


МОУ ALM 
АРА 
MOV ма 


ОСА B 


| 9NZ  FSHFT 


RET 


~ 
ОРСО ОРЕМОЗ 


ERU з 


X, 


10:55:53 15 АРВ 1276 


COMMENTS 


; GET A BYTE · 
; SHIFT RIGHT 
i PUT. DOWN 

; POINT NEXT 
; DECR. СТА 

i WOOF 

; RETURN 


$0: 56: 21 


COMMENTS 


(X IN RADIANS) . 


1$ APR 1275 


37H DEGREE POLYNOMIAL APPROXIMATION 


XRA А 

PUSH РОЧ 
CALL ЕТЕЗТ 
JZ ЗІМІ 

JP SIN2 
CALL ABS _ 
POP PSW ' 
ХАІ 123 
РАЗН PSW 

LXI Ho НАСЕР 
CALL. FSUB 

42 SINS 
Фр SIN3 
(ХІ НЫ, HALFP 
CALL Езив 
ЈМР SINI 
LXI H,HALFP 
CALL FADS 
POP PSW 

см МЕС 


REGISTERS 


LXI H: TEMPI 


LXI H,HALFP 
CALL РОГУ 
LXI Н, ТЕМР2 
RST 5 

LXI H,TEMPZ 
САД. FMUL 
LXI Н, TEMPS 
RST 4 

LXI H, TEMPZ 


REDUCE ANGLE TO RANGE: 


$ INIT SIGN 
i SAVE ІТ 


; GET STATUS OF ANGLE 


; ERIF ZERO 


t=P1/Z PI/2) 


; BRIF POSITIVE 


; GET PREV SIGN 


; REVERSE 
;RESAVE | 

i POINT РТ/2 
» 00 SUBTRACT 
i BRIF ZERO 
; OR NEG 

i ELSE, РТ/2 
; SUBTRACT 

; LOOP | 
¿POINT РІ/2 
; 530 ADD 

; GET SION 


‚ &ELSE; GET ABSOLUTE VALUE 


? ВКТЕ REVERSE SIGN NEEDED 


; POINT T1 
; SAVE ІТ 


? GET SIGMEEXPONENT 
i EXPAND EXPDN. 


i BRIF POSITIVE 
; TEST EXPONENT 


i POINT РІ/О 


; COMPUTE X/PI/2 


; POINT T2 
; STOR& IT 
POINT BACK 


i СОМРИТЕ ЗАКЕ 


; POINT T3 
; ЗАМЕ тт 
‚ POINT NEM X 


- 


¿RETURN IF VERY SMALL RADIAN 


2502 ; ABOVE ROUTINE WILL APPROXIMATE SIN(X) == X FOR X: (=. Ok, 





е чы 
` 
` 
k 
- ) 
. 
( - 


O4 





IMSAI 2030 2K BASIC VERsi.3 10: 57:34 15 APR 1975 PAGE 20 
ANDR OBJECT LINE ТАЗ ОРСО OPRNDS COMMENTS 
1001 CUSCOE 261? CALL. ЕМ. ; COMPUTE CUBE 
1004 212320 2620 LXI Н. TEMPO - ; POINT FACTOR AREA 
1007 F7 2621 š RST 6 | ; SAVE IT 
1003 04504 26272 "JI В, 45 NUM OF TERMS 
LOCA 21351Е 2622 (ХІ H SINCO ; POINT CONSTANTS 

2 2524 ; | 

| 2525 ; COMPUTE SINE OF ANGLE 

2526 i 

£00B CS x 2627 SING: PUSH В ‚ ЗАУЕ СТА 
100g ЕЗ 2623 PUSH H ;SAVE ADDRESS 
1002 CDe6COR 2529 SINS: CALL FMUL ` ; COMPUTE THIS TERM 
1012 212420 2420 LXI нм. TEMPS ;POINT PRIOR SUM 
1015 CD$590D 2631 CALL. FADD ; ADD 
#013 El ; 1632 POP H ? СЕТ ADDRESS CONST 
ior? Сі 2633 РОР В ; БЕТ CTRS 
iiA 05 2624 ОСА -B | ; DECR CTR 
1018 сз 2635 ВЕ — ¿RETURN IF HAVE ЗІМЕ 
1012 ЕЕ 2625 RST 7 i ADJUST TO NEXT CONST 
1010 04 2637 | DB 4 | 
IOLE CS 2638 PUSH B ; SAVE CONST 
io1F ES 263? PUSH H ; SAVE ADOR 
1020 212420 24640 LXI Н, ТЕМР1 iPOINT SUM AREA x : 
1023 F7 2641 RST 5 ; SAVE IT 
1024 EF 2542 - RST 3 ;LOAD X FACTOR 
1025 СВАСОЕ 2642 CALL ЕМИ. : 00 MULTIPLY BY X^2 
1023 212320 2634 LXI Н, ТЕМР2 ¿POINT SAVE AREA 
[028 Е7 254% RST 6 ; ЗАМЕ ІТ 
5020 Е! 2645 POP H ; СЕТ ADDRESS 
1020 25 2637 PUSH H i КЕ-ЗАМЕ 
1928 SSOFLO 2643 JMP SINS ; LOOP 


IMSAI 3080 2K BASIC VER», 3 





10:58:03. 15 APR 1975 PASE 31 


ӘНІН OBJECT LINE TAG ЗРСВ OPRNDS COMMENTS 
1031 ` 2630 COS: ЕО) 5 
2631 ; 


COMPUTE COSINE OF ANGLE, X 


EXPRESSED IN RADIANS 
2654 ; USES THE TRANSFORMATION. 2. ыен 
і 


2 Y = 21/2 + X AND THEN COMPUTES зї 
1031 2 3 = 
1 218218 2 LXI H HALFP ; 
1034 CDS9OD 2653 CALL FADD a мл n 
‚ 1037 С2АФОҒ 245? JMP SIN 


? GO COMPUTE SINE 





ІМЄДІ 3030 SK BASIC VER». 3 


RL DR 


103A 


јоза 
1030 
LOSE 
1041 
1044 
1047 
1049 
1044 
1048 
104C 
1040 
104£ 
104Е 
1950 
1051 
| 1054 

jo57 
105A 
105) 


IMSAI 3080 SK 


OBJECT 


213C20 
F7 
с03110 
214320 
113C20 
0694 
ЗЕ 

tA 

77 

79 
12 

23 

13 
os. 
C24910 
спагов 
213С20 
CDEJSOK 
с? 


ADDR OBJECT 


LOSE 


105€ 
1051. 
1054 
1067 
оба 


1060 
1070 
1073 
1075 
1077 
1078 
1070 
1080 
1083 
1085 
1087 
1 034 
оён 
1090 
1091 
1094 
1097 
109? 
1092 
Lou 
10?F 
1942 


CT750F 
F26D10 
CDDA11 
635010 
CZDA11 


213Е:Е 
cDSoon 


212420 


F7 

21 421E 
COS308 
212520 
СОЕЗОЕ 
212320 
ЕУ 
212820 
CDACO&E 
212с20 
ЕТ ` 
11621Е 
212420 
0604 
созас 
ЕЕ 
9507 
21451Е 


220010 | 


LINE 


2561 
2552 
2553 
2554 
2555 
1556 
2597 
2663 
266? 
2570 


^ 2671 


2672 
2573 
2674 
2575 
2676 
2677 
2573 
2579 
2680 
2521 
2532 
2633 
2624 
2555 
2586 
2537 
2633 


EASIC VER=1. 


LINE 


26?0 
2671 


2692 ; 


2673 


2624 ; 


2675 
2594 
2597 
2593 
2629 
2700 
2701 


TAG 


TAN: 


ОРСО PRNDS 


ЕС) $ 


СОМРУТЕ ТАМСЕМТ ЈЕ x, 





10: 23: 19 


COMMENTS | 5 


IN RADIANS 


; USES THE RELATION: : 
i SIN(X) Я 
; TAN(X) = 
г COS(X) 
ХІ H TEMP7 ; POINT SAVE AREA 
RST 5 i SAVE ANGLE 
CALL COS i COMPUTE COS(X) 
LXI H,FACC ; POINT ANSWER 
LXI D,TEMP7 ;POINT X 
MVI В, $ ;LOOP CTR 
TANLI: MOV C.M ; GET BYTE 
LDAX D ;GET SAVE BYTE 
MOV ма i STORE IT 
MOV А, С ; GET SAVED FACC 
STAX D ;PUT TO TEMP7 
INX H ; POINT NEXT 
IMX D ¿DITTO - 
OCR в ; DECR СТА 
JNZ TANI ; LOOP 
CALL SIN ; COMPUTE SINE 
LXI H,TEMP7 ¿POINT COS 
CALL FDIV ; 60 DIVIDE > 
RET ; RETURN 
з є 10:58:48 15 APR 1275 РАЈЕ 23 
TAG ОРСО ОРЕМОЗ COMMENTS 
ATN: EQU з 
; COMPUTES THE. ARCTANGENT OF X 
; USES А SEVENTH DEGREE POLYNOMIAL APPROXIMATION 
CALL FTEST ; CHECK SIGN OF ARGUMENT 
JP АТМ ; BRIF POSITIVE 
CALL NEG 23 REVERSE SIGN 
CALL АТМ! ; GET POSITIVE ATN 
JMP NEG i MAKE NEG & RETURN 
ATNA: LXI FH, ONE mg POINT: 1 
CALL FADD ; GO ADD 
LXI H, TEMPL ;POINT SAVE 
RST 5 ; STORE 
LXI H, TWO ; POINT: 2 
CALL FSUB ; ба SUBTRACT . 
LXI Н,ТЕМРІ ; POINT SAVED 
CALL FDIV ; DIVIDE 
LXI Н,ТЕМР? POINT SAVE 
RST & ; SAVE (X-1)Z(X+1) 
LXI H, ТЕМР2 ; POINT SAME 
CALL FMUL ; SQUARE IT 
LXI M, TEMPS ; POINT SAVE 
RST 5 ;SAVE ((X-10/70(0X812020^22 
LXI 0, СТАРТ ; POINT РІ/4 
LXI ` H, TEMP? ; POINT SAVE 
MVI E4 ; BYTE COUNT 
"CALL COPYD ; MOVE IT 
RST 5 i LOAD (X=1)/(X+1) 
MVI 2,7 ; TERM COUNT 
LXI Н, АТМСО ; POINT LIST COEFFICIENTS 
JMP SING ; 60 COMPUTE x RETURN 


15 SPR 1975 PAGE 22 


- 
A 














IMSAt 3030 ЭК BASIC VER=:. 


2 
m 


anne gESJECT LINE TAG ОРСО ОРЕМОЗ 


1085 2723 LUG: EQU $ 


2723 š 
272 i 


10:29:29 15 APR 1274 РАСЕ 34 


COMMENTS 


2727 i COMPUTES THE NATURAL LOGERITHM, LOG(C(X) 


2729 i 
1045 CUYSOF 2720 CALL РТЕЗТ 
068 FASSIA 2731 М ОЧЕВЕ 
IOAR 212320 2722 LXI TEMPS 
| ВЕ F? 2733 RST 6 
LOAF 204320 2734 А FALL 
1082 COSSOF 2735 CALL ЕЕХР 
108% 220410 2736 JP LOGI 
іске 2Е 2737 сма 
1089 C502 2733 ADI 2 
ioBB CD7012 2732 САД. FOEC 
ЗОВЕ CDDA1i 2750 CALL. NEG 
осу C3C?10 2741 JMP  LOGZ 
1064 DEOL 2742 LOG1: 581 1 
107A CD7012 2743 CALL ЕФЕС 
1002 215218 2744 1042: LXI н,1м2 
1072 CD6COE 2745 CALL. FMI, 
ОСЕ 212420 2745 LXI НЫ, TEMPI 
1902 Е7 2747 RST & 
1003 ЕР 2733 RST 5 
1004 3EO1 2749 MVE А, 1 
1005 224820 2750 STR FACE 
19019 213E1E 2751 LXI H: ONE 
1002 CDSSOF 2792 CALL, FSUB 
LOLF 212320 «793 (ХІ H,TEMP2 
ОЕ? F7 2734 RST Ф 
ICES F7 Mor ips E RST 4 
1024 0507 27% | MVI 8,7 
LOES 219?51E 2757 LXI. H.LOGCO 
1059 С20010 2753 МР SING 
IMSAI 2080 3K BASIC VER=1, 3 
АПЫН OBJECT LINE TAG OPCD OPRNDS. 
1OEC `` 2750 ExP- EQU з 

4751 ; 

2762 ; 

2753 ; COMPUTES EXPONENTIAL Е^Х 

2754 ; 

275%; 
10ЕС СП7<ОЕ 4456 .. . CALL FTEST 
ІСЕР F20511 2747 ығ EXPE 
КОР CODAL A 2758 CALL MEG 
LOFS СОО811 2749 CALL EXP? 
lora 212420 2770 LXI F, ТЕМЕ; 
1028 FT 2771 RST & 
1OFC 213Е1Е atta UXT FH, ONE 
СЕР EF 2 ват 
1100 212420 2774 LXI КНК, TEMP? 
1103 СЗЕЗОЕ 2775 ЈМЕ FOrY 

2775 ; 
1105 212820 2777 EXP1: LXI Н,ТЕМР? 
1109 Е? 2773 RST 4 
1108 Е7 2779 RST 5 
1108 213Е1Е 2730 LXI HF, ONE 
ALOE 112420 2731 LXI D, TEMP? 
1111 ОЉОА 2732 MVI 8.4 
1113 CD2D1C 2733 CALL COPYN 
1116 0506 2724 MVI В, 
1113 21821F 2733 LXI H, EZXPCO 
1138 250810 2735 САД. SINS 
1116 214329 2737 LXI Н, FASC 
i121 срьсоє 2733 CALL. FMUL 
1124 2149206 2739 LXI H FASC 
1127 СЗАСОК 2720 “МЕР КЕМ. 


2729 i USES A 7TH DEGREE POLYNOMIAL APPROXIMATION 


; TEST THE ARGUMENT 
i ERIF MEG 

POINT SAVE AREA 

; STORE IT 


4 GET EXPON 


; EXPAND TO 3 BITS 

> БАТР POSITIVE EXPOMENT 
ELSE, COMPLEMENT 

iPLUS TWO 

i CONVERT ТО FLOAT POINT 

i TREN NEGATE 

i GO. AROUND 

; MINUS ONE 

; CONVERT TO FLOATING POINT 
i POINT LOG(2) | 
; MULTIPLY 

POINT SAVE AREA 

‘STORE IT 

? GET ORIG X 

; GET ЕХРОМЕМТ: 1 

i ADJUST TO RANGE (1,2) 


APOINT t ` 


i SUBTRACT ONE 

iPOINT STORAGE 

; SAVE X 

i ЗАМЕ X^N 

i SEVEN TERMS 

POINT COEFFICIENTS 

i APPROXIMATE x RETURN 


11:00:10 15 APR 1275 PAGE 35 


COMMENTS 


USES STH DEGREE POLYNOMIAL APPROXIMATION 


i CHECK SIGN 

iBRIF POSITIVE 

i ELSE REVERSE SIGN 

$ СОМРИТЕ POSITIVE EXP 

; POINT SAVE AREA 

? STORE IT 

‘POINT 1 

i LOAD IT 

? POINT PREV 

: АЕСАТРАТСА. AND RETURN 


i POINT SAVE AREA 
i SAVE хом 

iX 

; POINT: í 

; POINT SAVE AREA 


. 3i BYTE COUNT 


;INIT SUM = | 

; GET TERM COUNT 

; POINT COEFFICIENTS 
("0 COMPUTE APPROX. 

i POINT PARTIAL ANSWER 
i SQUARE IT 

; POIMT AGAIM 

; ^4 AND RETURN 





ТМЗАТ 3080 SK BASIC УЕК=!. З 


ніш OBJECT 
А 


112A 384320 
i121! 2867F 
112Е 324220 
1132 C? 


IMSAI 3030 2K 
ALLA OBJECT 
1133 


1133 007508 
1134 СЗ 
1137 &e30 | 
ais? F5O1 
1138 ЕЗ 
4120 213Е1Е 
11ЗҒ ЕР 
1140 ЕІ 
1141 324320 
1:44 57 


LINE 


2772 


2793 
2734 
2735 
2796. 
2797 
2773 
2799 
2300 

2301 


TAG ВЕСО OPRNDS о 


ABS: Ей + 


> w w s&s <. 


RETURN THE ABSOLUTE VALUE 


LDA FACC 
ANI 127 
STA FACC 
RET 


BASIC VER=t. З 


TAG ОРСО OPRNDS 


SGN: ERU з 


š 
; 
; 
; 
; 
; 
; 
; 


11:00: 54 15 APR 1275 PASE 


COMMENTS 


ЈЕ THE FLOATING ACCUMULATOR 


: GET EXPONENT 

; STRIP NEGATIVE’ SIGN 
; REPLACE 

; RETURN 


11:01:22 15 APR 1974 PAGE 37 


COMMENTS 


RETURNS THE SIGN ОР THE FLOATING ACCUMULATOR 


THAT ІЗ: 

| IF ЕС > O 
О IF РАС = О 
-1 ТЕ Е С < 9 


АЕ L 


LXI ЊОМЕ 
нет 3 

РОР PSW 
STA касс 
RET 


;GET STATUS OF FACC 

; RETURN. IF ZERO 

: ISOLATE SIGN 

i CREATE EXPONENT 

? SAVE ТТ 

; GET ADDRESS OF CONSTANT 1 
; 50 LOAD IT 

; RESTORE SION ` 

; SET THE SIGN 

; RETURN 


e 














- 





Е  IMSAI 3080 ӘК BASIC VER=1. З 11:01:41 15 APR 1275 PAGE За 
ALDR OBJECT LINE TAG ОРСО OPRNDS COMMENTS 
1145 2823 INT: EQU s 
2324 ; 
= — Ë ° 
2526 ; RETURNS THE GREATEST INTEGER NOT LARGER THAN VALUE IN РАСС 
2927 ; Е. G.: Š 
2323 ; INT(2. 14159) = З 
5 292? ; INT (0) = Ó 
. 2330 ; ІМТ (-3. 1815) »-4 
23931 3 
2332 ; 
1155 2142320 2833 LXI Н, РАСС ; POINT FLOAT ACC 
1143 7E 2834 мом А, м СЕТ EXPONENT 
1149 Ео4о 2325 ANT bs ` ; GET SIGN OF CHARACTERISTIC 
1148 СА5211 2336 JZ INT2 ài BRIF сЕ ZERO 
114Е 0604 2837 MVI В, 4 i LOOP СТА 
1150 C3331C 2522 JMP ЗЕВС : 50 ZERO THE Facc 
1133 7E 2333 ІМІ2: мо Ам i GET EXPONENT AGAIN 
1154 57 2340 ORA А ; TEST SIGN 
115% #25231 2341 JP INT3 г ВР POSITIVE OR ZERO 
1159 214816 2242 LXI н, NEGON i POINT CONSTANT: - 2200000 
1158 СО5900 22343 CALL FADD ; ADD TO FACC 
115Е 214870 2344 LXI Н, FASC ; POINT EXPONTENT AGAIN 
1151 7E 2345 MOV а, М i LOAD IT | 
11462 EG2F 2946 INT3: ANI 53 ; ISOLATE Снавастев! 2 ТС 
116% FELS 2347 CPI 24 ; TEST ТЕ АМУ РЕАСТТОН 
- 1166 ЕО ` 2343 АР i RETURN. IF NOT 
1147 47 2949 MOV В.А ; SAVE EXPONENT 
1153 3E18 2350 MVI A,24 ; GET CONSTANT : 
1155 20 2351 Sup Ba ; MINUS ЕХРОМЕМТ = LOOP СТА 
1,168 4F 2352 MOV CLA i ЗАМЕ IT 
1160 214920 2353 шта: (ХІ Н, АСС: ; POINT MSB 
Lise AF 2354 ХАА А i CLEAR CY FLAG 
1170 04603 2355 MVI 8,3 ; BYTE COUNT 
1172 7E 2355 INTS: мом AM ; LOAD A BYTE 
1173 iF 2857 ` RAR ; SHIFT RIGHT 
1174 77 2853 мом МА ; REPLACE 
1175 22 235 INX H ; POINT NEXT 
1174 05 ` 2369 жи в - i БЕСА BYTE СТА 
1177 627214 2341 „мг INTS ; LOOP | | 
1176 90 2352 DCR с 3 DECR BIT CTR 
117B C26C11 2953 МТ тмта ; LOOF 22 
117Е 214520 2264 LXE ЕСС i POINT SIGN k EXP 
1131 7Е 2365 MOV А, m i LOAD IT 
1182 £430 2856 ANI 123 i ISOLATE SIGN 
1134 сеща 2857 ADI 24 ; PLUS INTEGER 
1185 77 2862 MOV м,» i REPLACES IT 
4137 C21DOE 2259 „ме  FNORM ; GO NORMALIZE x RETURN 





IMSAI 3030 SK 


ANDR OBJECT 


1138 


113A 
1180 
:18Е 
1121 
1134 
1173 
1198 
1198 


1196 
119F 
1182 
1145 
газ 
1128 


мас 
ПАР 
1182 
1153 


1:85 3 


115? 
ва 
ава 
11BE 
iici 


11C4 
11C7 
11C3 


CU2350F 
c3 
FATS1A^ 
326021 
АҒ 
324820 
212320 
F7 


21351Е 
CDSCOE 
215081 
205200 
212420 
= 


CC 3i 5 2 * 


212420 
F? 
635413 


212320 
EF 
212420 


1108 CDE 


11CE . 


1101 
1104 


IMSAÍ 3080 3K 


ALR 


Jil 3 
Lili? 


OBJECT 


324820 
с? 


BASIC VER=1. 3 


LINE 
2871 


2972 ; 
2373 ; 
2374 ; 
2373; 
2876 ; 


2877 
2973 
2979 


2530 


2331 


BASIC VER-1. 


таз 
зая: 


, 
, 
^ 
P 
р 


ӘРЕ) ОРЯМОЗ 
ко) + 


CALL ЕТЕЗТ 
RZ 

JM — OVERR 
STA СЕХР 
ХВА А 

STA FACC 
LXI 
RST ó 


Н, ТЕМР2 


11:03:09 
COMMENTS 


USE HERON 3 ITERATIVE PROCESS - 


i TEST THE ARGUMENT 
; RETURN IF ZERO 

; ERROR IF NEGATIVE 
; ЗАМЕ ORIG EXPONENT 


i GET а ZER) 


? РОТ ARG IN RANGE C. 5, 


; POINT SAVE AREA 


i STORE ІТ 


15 APR 1275 PAGE : 


COMPUTE SQUARE ROOT OF ARUGMENT IN FACC: LEAVE RESULT 


11 


; INITIAL APROXIMATION: 9. 4172075? + 0. 39016204 + MANTISSA 


>. w чо - 


LII 


40) > а + ~ 


SOR: 


LINE ТАЗ 


2922 
2923 


LXI MB, SQC1 
САЩ. FMUL ` 
CALL FADO 
LXI Н,ТЕМРІ 
RST 6 


CALL. SRRI 
“LXE Н, TEMPI 
RST 5 

TALL. SORÍ 


LOA 
RAR 
STA 
RNC 
LXI 
JMP 


DEXP 
FACC 


H, SQC3 
РАЈ, 


LXI H, TEMPZ 
RST 5 

LXI H, ТЄМРІ 
САД. РОТУ 
(ХІ Н, TEMP1 
САЩ. FADD 
SUI 1 


3 
ОРСО OPRNDS 


STA FACC 
RET 


£ 


; POINT . $9016 


; GO MULTIPLY 
PINT . 4172 
; 59 ADD 


; POINT 'SAVE AREA 


:00 STORE IT 


; FIRST ITERATION 


; POINT 
; STORE IT 


ЗАМЕ AREA 


NEWTON'S METHOD OF ITERATION ТО THE я 
VALUE OF THE 508 OF MANTISSA 


e s 


; SECOND ITERATION 


+ RESTORE RANGE TO OBTAIN THE FINAL RESULT 


; GET SAVED ЕХРОМЕМТ 


? DIVIDE BY 2 
; STOR& IT 


; RETURN IF EXPON EVEN 
i ELSE, POINT 5002) 
; GO MULTIPLY AND RETURN 


THIS ROUTINE PERFORMS ONE NEWTON ITERATION 
TO THE SQUARE ROOT FUNCTION 


; POINT MAaNTISSA 


i LAG IT 


; POINT PREV GUESS 


; FORM MANT/TEMP1 


i POINT PREV 


i FORM TEMPI + МАМТ/ТЕМРІ 


; DIVIDE Зу 2 


11:023: 53 
COMMENTS 


; FORM (ТЕМР! + МАМТ/ТЕМРІ )/2 


; RETURN 


15 APR 1276 


РАБЕ 


эб 











£ 
ç 


IMSAI 8080 SK BASIC VER=1. З 


AUDR 


Lina 


LIDA 
1100 
Live 
LiEO 
МЕЗ 


IMSAI 3080 ек 


AUDR 
LLES 


115% 
11Е5 
1129 
L1EC 
11 
11F1 
#122 
11ҒЗ 
11F7 
' 3163 
11Ғ? 
LIFA 
11Ғ9 
МЕС 
1170 
1209 
120} 
1264 
1205 
1207 
202 
1209 
1204 
4200 
1219. 
1211 
1212 
1215 
1214 
1217 
1213 
- 3219 
1214 
1218 
121: 
1210 
121E 
i2iF 
4220 
i271 
1222 


1222 


Қар {224 
1 | 1227 
| 1222 








OBJECT 


EESO 
324820 
с? 


QBJECT 


0404 
214820 
созз1с 
0203 
214920 
ES 
217221 
950 
87. 


051512 
С22112 
іа 


EE 
022112 
EB 


ја 

75 

$2 

18 

2B 

ја 

ФЕ 

12 

13 

д 

Ез 

13 

«3 

05 
“20812 
0602 
117321 


LINE 
2923 


2226 i 
CA A i 

i REVERSES THE SIGN ОЕ THE FLOATING АСТ 
2929 i Қ 


2528 


27g 

2231 
2732 
2933 
2734 
2225 


ТАЗ ОРС0 OPRNDS 


мес: ЕО) з 


САМ. FTEST 
RZ 

XRI 123 
ЗТА FACS 
RET 


BASIC VER=1. З 


LINE 


TAG | OPED СРЯМО$ 
RND: ERU + 


2233 i 
2939; 
2940 ; PSEUDO RANDOM NUMBER GENERATOR 
2241 i 
| 2942 i T 
2243 PW Y Bo > 
2944 LXi Н, FACE 
2344 CALL ZERON 
2245 "MI бз 
2947 LXI Н. FACC rt 
2743 PUSH H 
2949 RND1: LXI Н, RNOZ+t 
2230 MVI 8,5 
22531 ОБА А 
2752 RNDZ2: РОМ Ae М 
2733 RAL 
2934 MOV М.А 
2255 DCX H 
2995 DCR B 
4997 JNZ  RND2 
2953 INX H 
2289 LXI D,RNDFP 
2950 мет B3 
2961 КМЗ: (рах D 
2252 сме M 
2953 INX 0 
2254 INX H 
2263 JC RND4 
2955 JNZ RNDS 
2967 ЬЗАХ D 
2358 СМР m 
2253 „чо — RNDS 
2970 RND4:  XxCHG 
2971 LDAX D 
2272 ив м 
2273 ЗТАХ Ü 
2974 рех 9 
2973 DCX н 
2275 (дах D 
2277 338 м 
· 2279 зтах D 
227? INX D 
2230 INX H 
22731 XCHG 
2232 RNOS: INX D 
°з: INX H 
2934 DER 3 
2755 әм:  RND3 
22525 MVI 8,3 
2297 ямо: LXI 5, АМ +1 


11: 03: 55 15 APR 1974 PAGE 21. 


COMMENTS 


;GET STATUS OF Расе 
i RETURN IF ZERO 

; REVERSE SIGN 

; RESTORE ЕХРОМЕНТ 

; CONTINUE EVALUATION 


11:04:07 15 APR 1974 PARZ 22 


COMMENTS 


;LOOP СТЕ я 

; POINT FLOAT ACCUM 
; GO ZERO THE FACC 
;OUTTER 00Р СТА 
i POINT WSB 

4 SAVE H, L. 

¿POINT X, Y, z 

i LOOP СТЕ 

; TURN OFF СУ 

GET А BYTE 

i SHIFT LEFT (MULT BY 2) 
i REPLACE THE BYTE 
i POINT NEXT 

i DECR СТА. 

; LOOP 

; POINT MSD X, Y, Z 
¿POINT TO MODULO 
i LOOP СТА 

i GET BYTE OF P.Q, R 
iPOINT NEXT 

i DITTA 

BRIF Р<Х 

? BRIF POX 

i ET LOR BYTE 

‚ СМРАВЕ | 

i BRIF Plax 

FLIP OE TO H, L. 
‚СЕТ LOW X BYTE 

i ЗУВТААСТ LOW Р BYTE 
i STORE IT 

i POINT HIGH 

; DITTO 

i GET HIGH X BYTE 
i SUB HIGH P BYTE 
i STORE ІТ 

; POINT LOW 

; DITTO 

*RESTORE ADORE 

: POINT NEXT 
DITTO 

; DECR СТА 

; LOOP 

LOOP СТА 

i POINT LOW $ 


Імені 2020 SK RASIC VER=!. 3 11:05:22 15 APR 1274 FAG 





АЙЫН OBJECT LIME TAG ОРСО OPRNDS ` COMMENTS 
122€ LA 2233 крах D ‚СЕТ айы 5 
(лп 36 2932 ADD м ADD LOW Хх, Y, 2 
1226 12 2290 зтах D : PUT 3 г 
1225 1B 2991 ocx D ; POINT HIGH ( 
1220 28 33292 DTX H i DITTO ха 
1231 1А 2293 LDAX D : ET HIGH $ 
1233 ESF 2295 ANI 63 ; TURN OFF HIGH 8175 
1236 12 2295 ЗТАХ D ; STORE IT 
1237 .05 2993 рса в ; DECR CTR 
1223 C22912 2999 JNZ ямрь ; LOOP 
1228 3EO9 2000 - MI A3 ; CONSTANT 
. 1230 21 . 3001 sue с LESS ста 
IE íF ` 3002 RAR ;DIVIDE BY TWO 
i23F Ei 3003 . POP H ¿GET Н, ADDR 
1240 207823 3004 LDA RNDS+1 ET LSB OF 5 
1243 77 3005 POV М, А i STORE IT 
1244 22 3006 INX H ; POINT NEXT 
1245 ES 3007 PUSH H ; SAVE H, L 
1244 OD 3008 DCR с ; DECR CTR 
i247 C2F211 2009 JNZ  RND1 i LOGP 
i244 Е! 3010 POP H i RESTORE 3P PTR 
1248 3А7С21 201] LOA RNDSH ; GET SMITCH 
1248 B7 2012 ORA А ; TEST IT 
124F CALDOE 3013 0 42 FNORM ` i BRIF МО RANDOMIZE 
1252 116C21 3014 LXI в, ТАМОХ | ;POINT SAVED VALUES 
1255 217421 3015. LXI H, АМОХ | «POINT NEXT VALUES 
1223 0608 2016. мут B3 130» CTR 
1254 CD2DIC 2017 CALL СОРУН ; СО COPY 
1250 СЗИЮЕ 3012 - JMP FNORM ; D NORMALIZE THE MUMBER 
IMSAI 3090 2K BASIC VER*1. 3 : ee Oe 40 IM АРН 1976 PAOR 74 
AUER OBJECT LINE TAG ОРСО OPRNDS COMMENTS 
é 1260 5 3020 INP: EAU з 
3921 i | 
022. | 
: 3023 ; INPUT А BYTE FROM THE DEVICE IN FACC 
3024 ; : 3 
3025 ; PUT THE RESULT IN THE FACC 
3026 ; 
240 СОЗ 5027 ` CALL. FBIN ; CONVERT FACC TO 2INARY 
Ез оно 3028 LXI н, оцта iPOINT INSTR BUFFER 
1255 2508 3029 MVI M219 ; IN et dm 
1258 23 ин ; MOVE ADDR 
126? 77 ea. с њи = | ¿POINT NEXT | 
1264 23 - че па ‚ВЕТ INSTR 
1258 34C7 3033 MVI М, 201 250 INPUT A BYTE 
280 cDOFZO 3034 CALL OUTA iG ho в. Е 
1270 5Е 3035 FDEC: = ER LE па г LO ЊЕ 
2 3036 "V , ній ds ша 
1225 нр 3027 JMP  BINFL ;60 CONVERT TO DEC % RET 
імсА: 3080 SK BASIC ЧЕВ=1. З ` 11:07:22 15 АРН 197^ PAGE 75 
РП OBJECT LINE TAG ОРСО OPRNDS COMMENTS 
1275 203? POS:  EQU s 
3040 ; 
3041 ; 
° 3042 ; RETURNS THE CURRENT POSITION OF THE ТТУ CURSOR 
2043; 
3044 ; 
1275 ЗААВ21 3045 LDA COLUM ; GET POSITION | 
1279 C27012 3046 JMP  FDEC ; CONVERT TO FLOAT AND RETURN 








[Маг ЗОЗО ФК ето dede 
SQ РК БАЗІС VER=i 3 | 11.07: 35 15 APR 1275 PAGE 25 





ALUR OBJECT LINE TAG PCD OPRNDS COMMENTS 
i27C 3043 CUNCA: EQU 3 
3042 ; : 
050 ; 
2051 ; CONCATONATE TWO STRINGS TOGETHER 
3052 i COMBINED LENGTH <= 255 
a | 2052; | 
27 3054 РОР D ; ADJUST STACK 
1270 115220 3053 ux D, STRIN ;POINT STRING BUFFER 
1291 ЗЕ 3057 MOV С, А ET т 
1292 0400 3053 MUI B.O CLEAR й 
1234 ЕВ 3059 XCHG ; FLIP FLOP 
i295 09 . 3050 DAD B x ; COMPTE NEXT 
1285 ЕВ 3061 XCHG SFLIP ВАСКО 
1287 34 3062 ADD м ; COMPUTE СО 5 
1288 46 3043 MOV BM ; SAVE LENZ оу еа 
1299 029212 3054 JNC. CONC2 ; BRIF 
123C ЗЕРЕ 2055 мит А, 255 ; МАХ ES a 
123Е 91 2065 ` eun с : MI 
4292 47  - 207 MOV B.A урн зе — 
U 1220 ЗЕРЕ 3053 MVI А, 2 | е | 
1292 324N9O. 3049 сомса STÀ. SINIM wee 
1294 73 3070 MOV AB ньо 
1295 87 3071 ORA а x Ты 
1297 CAa212 3072 42  сомс+ БЕДЕ У 
1224 23 3073 CONC3: INX H  . eur QS 
i298 13 2074 INX D ; DITTO Gea 
1290 12 2074 роми p ae 
1295 05 3077 DCR 8 ا‎ 
12°F C29012 2073 JNZ сомсз hee 
i282 EL 207? CONC4: POP H СЕТ H : 
x 1243 28 2020 DCX H ;POINT Bac 
> i204 2A332370 2031 LDA STRIN ; GET LEN T 
| (247° ЈЕ 4022 RAR ; DIVID 
4 1288 32: 2082 INR А ; PLUS с : Меш 
> ° 124? EB 2034 XCHG : ; SAVE Vg 
N 1274» 2А5921 3285 ` LHLD SPCTR БЕТ eu 
š 12AD 4F 3085 MOV С.А ерк 
v. | 12АЕ 0500 2037 MVI 8,0 ; ZERG HI 
| 1280 09 2039 баб з ; ADD bi Tuis co 
i281 2229221 2082 SHLD SPCTR ; ЗА a ` UM 
1274 Ci 3090 POP B B cs 
283 210000 2091 Е ‚СЕТ AD | 
1283 ЕЗ NU nwic* Онин Iu о 
1289. SD 3093 DCR А mM d 
U | 1228 С28812 3094 JMZ  CONCS ; CONTINUE 
1780 2? 3095 бар se x ; СЕТ ADDRESS 
128E EB 2095 XCHG eco ا‎ E 
2 ;PUT STACK PTR IN DE 
122 72. 3097 MOV MD ; MOVE HI А 
i2co 23 3093 INX MH ; POINT MR 
IMSAT 3080 2K BASIC VER=1. 3 11:09:20 15 APR 1974 PAGE 97 
AUER OBJECT | LINE TAG | | ОРСО OPRNDS COMMENTS : 
1201 73 3099 MOV ME i MOVE LO ADDR 
12С2 25E7 2101 MVI м, 231  ТҮРЕ“ӨТКІМӨӘ 
1205 ЕЗ 3102 вузи H САМЕ F Ú 
1205 215320 3103 LXI MF,  STRIN ‚ СЕТ ТЕМЕ STR 
[202 7Е 3104 мо; AM x ; SET LENGTH 
{OCB ЗЕ 3106 MOV с, ; ЗАМЕ IT 
1200 ТЕ 3107 CONTA: MOV AM : ЗЕТ А BYTE 5 
12680 12 3103 ЗТАХ D PUT IT DOWN 
LEZ 13 3109 INX D ;POINT NEXT 
| 12CF 23 3110 INX H касата 
| (210 op 2111 DCR с (SAGT СТА 
je ізгі C2CCIZ — 2112 JNZ  CONC& » Loop 
у ава ЕЛ 2113 POP H ;RESTORE H, L 
; 1215 FF 3113 RET 7 | ADJUST H, L 
- 0 125 Fe 2117 DB -7 
E | | (597 TEOJ 3116 "I А, 4 ;DELETE 4 БУТЕЗ 
E : 1269 CDEDLA SEE TALL 30015 (OO IMPRESS 
| inne 35215 — 3118 MP EVAL ‚ CONTINUE EVALUATION 


о  ‚ 


IMSAI 2080 СК BASIC VER=1. 3 _ 11:09:58 15 АРВ 1275 PAGE 23 
„РОВ OBJECT LINE TAG ОРСО OPRNDS COMMENTS 
pone 3120 LENS: EQU з 
| 3121 ; 
3122; X=LEN(AS) 
3123 3 
3124 ; RETURN THE LENGTH ОЕ THE STRING 
SiS 1 
12DF 345320 3125 LDA STRIN ;GET LEN IN АСС - 
i2E2 C37012 2127 JMP ЕРЕС ; GO CONVERT TO DECIMAL & RETURN 
ІмгАі 3030 РК PASIC VER=).3 f 17: 10.12 15 APR 1975 PAGE 29 5 
ИРА ОВЈЕСТ LINE Таб | | ОРСО ОРКМОЗ ` COMMENTS | | - 
= 1258 | ` 4129 снкз: ЕО) $ | : | ( 
3130 ; | 3 
2131 ; Азмснезсх) | lx 
3132 i қ 
3123 ; RETURNS А ONE CHAR STRING HAVING THE ASCII VALUE - X 
3134 ; [ | 
12=5 cueRic 3125 SALL FBIN ; CONVERT Farc TO BINARY 
12Е8 215220 2135 LXI н,зтетм ; POINT OUT AREA 
12ЕВ 3601 3137 MI ML: ^ ;¿LSN=t . 
12Е 23 3133 INX H ; POINT NEXT | 
[ТЕБЕ 77 3132 MOV MA ; STORE THE CHAR 


12ЕР C9 3140 RET ; RETURN 











SAL 3080 SK казе УЕН»! З 11:10:36 15 APR 1275 PASE 100 


ч. ADDR OBJECT LINE ТАЗ OPCO OPRNDS COMMENTS 


БЕО 3142 ASCII: EQU з 
- 3143 à 

3144 ; X-ASCII(AS) 
3145; | 
3144 ; RETURNS THE ASCII VALJE ОР THE FIRST CHAR IN THE STRING 
3157 ; | 

1270 Z15229 3133 LXI H, STRIN ; POINT STRING 

(2ЕЗ ТЕ 3142 МОУ ALM ; GET LENGTH 

12F4 27 3150 два A TEST IF > ZERO 

1225 СА7012 SIS . JZ FOEC : BRIF ZERO & RETURN А ZERO 

12358 22 3192 INX ы ; POINT IST CHAR 

1223 7Е 3153 MOV а.м ;LOAD IT 

12F^ C37012 3124 JMP  FDEC 


i GO CONVERT То DECIMAL X RETURN 





IHSAN 2080 2K BASIC VER=1. З 11:10:55 15 APR 1275 PAGE 101 
: APUR OBJECT LINE TAG ОРСП OPRNDS | COMMENTS 
12FD 3155 NMS: ERU $ 
3157 ; 
3153 ; AS=-NUMS( 4) 
3159 i 
3440 ; RETURNS А STRING REPRESENTING X AS IT WOULD HAVE 
2151 ; BEEN PRINTED (INCLUDING TRAILING РАСЕ) 
3152 ; 
i7FD 215820 3163 LXI H, ТАТА ;POINT STRING AREA’ 
(300 3600 3154 MVI мо ; INIT COUNT 
^ 1207 53 3155. INX м ; SKIP TO 1ST POSITION 
Š 1203 СОЕЗОВ 3166 CALL FOUT ; G0 CONVERT ТО ЕХТАМ DEC 
— "1306 AF 3167 ХАРА А СЕТ A ZERO 
1307 47 3163 мом 5,8 ; INIT СТА 
3308 28 2159 ми: DCX H °  ;POINT PRIOR 
1309 04 3170 INR 8 ; COUNT IT 
1304 ВЕ 3171 ^ CMP M ; TEST IF ZERN 
1308 820313 3172 JNZ NUMI ;LOOP TILL AT START 
| ЗОЕ 70 qo Та MOV м, В | ; SET LEN CODE 
ізоғ С? 3174 RET ; THEN RETURN 


E 





IMSAI 2020 2K BASIC VER=) 3 | 11:11:32 45 АРИ 197: 


2 РЕЗЕ 103 
3008 ПРЈЕСТ LINE TAG ПЕСО QPFMDS COMMENTS 
1310 3175 VAL: EDU з 
3127; | 
3173; X=VALTAS) 
317? i; 
А 3130 ; RETURNS THE VALUE OF THE STRING OF NUMERIC CHARACTERS 
3131; 
1310 215320 3133 LXI Н, TRIN ; POINT ‘STRING AREA 
i313 ТЕ 3133 мом а, м ; ВЕТ LEN 
1314 87 3134 ORA а ; TEST FOR NULL STRING 
1215 47 3135 MOV В, А ; SAVE LEN 
1316 СА7012 315» JZ FDEC ; BRIF IS (RETURNS ñ 0. 90) 
1319 115320 3137 LXI 0, STRIN ; POINT BUFFER 
d 1C 22 3128 VALI: INX H ; РОТМТ NEXT 
1310 7Е 3139 MOV ALM ; GET А CHAR 
ІЗІЕ РЕЗО 3120 EMI 6.6 ^ i TEST IF SPACE 
1320 CA2513 31?1 JZ мал 2 ; BRIF ІЗ 
1323 12 3122 ЗТАХ D ; РУТ THE CHAR 
1324 13 ° 3122 INX D ; МСА ADDR 
1325 05 5194 VAL2: DCR B ; DECR СТА 
1326 C21C13 3125 “ANZ VALL > СОСР 
132? АР 3195 XRA А ‚СЕТ A ZERO 
1325 17 3137 STAX D ¿PUT IN BUFF 
1328 2152320 3128 LXI H, STRIN i POINT START OF BUFFE 
1З2Е CD1BOB 3129 CALL FIN ; 0 CONVERT 
1331 7E 3200 MOV ALM ;OET NON-NIUMERIC 
1332 E? 3201 ORA Я i TEST IT 
333 C2BOLA 3202 NZ  CVERR ; BRIF ERROR 
1336 C? 3203 RET ` ; ELSE, RETURN 
IMSAI 3080 ск BASIC УЕЗІ. З 11:12:19 15 APR 1975 PAGE 103 
anpR OBJECT LINE TAS OPCD OPRNDS COMMENTS 
1337 2205 SPACE: EQU 3 
3204 ; 
3207 ; ASBSPATES(X) 
3208; 
3202 ; CREATES A STRING ОР SPACES LENGTH = X 
3210 ; 
1337 СПЗВ1С 3211 CALL, FBIN ; GET BINARY LENGTH 
133A 215320 3214 LXI Н, STRIN ; POINT ТЕМ? STRING 
1330 77 3213 мо» MA ; PUT LEN 
S3E 87 3214 ORA а ; TEST IT 
132F СЗ 3215 ЗРАСІ: RZ ¿RETURN IF ZERG 
1340 23 3215 INX H i ELSE, POINT NEXT 
1341 3520 3217 му м," ` ; МОЧЕ 1 SPACE 
1383 20 . 9218 ОСА А ; DECR СТВ 


1344 СЗЗЕ1З 3219 JMP SPALL ; LOOP 














ІМСАІ 3090 2K BASIC УЕВ=|. 2 x 11:12:44 15 APR 1975 


ADUR OGJECT 


4) 


1387 


1347 CD2E1C 
(344 325320 
ізап 60721 
1350 215320 
1353 46 
1254 23 


1399 77 


1356 05 
1357 025413 
1354 С? 


IMSAI 3030 3K 
AMOR UBJECT 


135 


135В Ср721С 
135Е 9Е 
155F 0501 
L361 237713 


PAGE 104 
LINE TAS ОРСП ОРРМОЗ COMMENTS 
2221 STRs: 520 з 
dee 1 
3223 ; AS«STRINGS(X, YO 
з224; 
3225 ; CREATES А STRING OF LENGTH X CONTAINING REPETITION OF THRS( 
3225 ; 
3227 CALL. FBIN СЕТ BINARY LENGTH 
3222 STA  3TRIN PUT TO STRING 
322? CALL ААМ : ЗЕТ NEXT ARGUMENT 
2230 (ХІ H,STRIN ;POINT STRING 
2231 MOV B.M „БЕТ COUNT 
2222 STRII: INX H | ;POINT NEXT 
5233 MOV ма ; STORE THE CHAR š 
2224 DER B ; DECR СТВ 
3235 JNZ зтви i LOOP 
3235 RET ; RETURN 
BASIC VER@1. З 11:13:12 1% SPR 1276 PAGZ tos 
LINE TAS  OPCD OPRNOS COMMENTS = 
3233 LEFTS: ЕО) з | 
3229 ; 
3240 ; B$=LEFT$(ñ%, X) 
3244 ; | 
2242 ; SUBSTRING FROM THE LEFTMOST X CHARACTERS OF Аз 
3243 ; : 
` 3244 CALL ARGNU ; GET 2ND ARGUMENT 
4245 MOV C.A | ; ЗАМЕ LEM 
3245 MVI 8,1 ; INIT START : 
3247 JMP MIDO ; CONT INUE 





[МАТ 3030 SK BASIC VER=1. 3 


ария OBSECT 


1344 


1344 CD721C 
1367 47 
1243 ОЕРР 
{ЗА С37713 


IMSAI 3030 2к 


АПВ OBJECT 


1550 


1350 
1376 
1371 
1372 
1375 
1375 
i377 
1373 
1378 
1372 
137r 
1282 
1384 
1385 : 
i 35 
1353? DEO, 
i23B 
LIBE 
ji32F 
1292. 
i393 70 
1224 
1325 
1396 


CD721C 
47 

cs 
CD721C 
C1 

зе 
75 
215320 
BE 
DA8313 
CA3513 
3500 


115320 
7Е 
ғ 13 
23 
12 
ор 
“29Е1З 
с? 


LIME 


3224? 
3230 
3491 
2252 


3253 
Am му 


>< 


3255 
EJ 
1255 
224: 


3253 


LINE 


3250 
3261 
3262 
2253 
3254 
3255 


3265 i 


3257 


3268 
3259 
3270 
3271 
3272 
3273 
3274 
327' 
3275 
22 
3279 
3279 
3280 
3231 
3222 
3233 
3234 
3235 
3235 
3237 
3283 
3282 
3290 
3291 
3222 
2293 
3294 
2295 
3226 
3297 
3228 
229% 
3300 


15 APE 1974 


III 27 POSE 106 ( 
ТАЗ BPD ОРАМОЗ соммеНМТО 
RGHTS: ЕС $ 
; BSsRIGHTS(AS, X) 
; SUBSTRING STARTING AT POSITION X TO END OF 3TRING 
CALL. ARGNU i БЕТ 2ND ARGUMENT 
MOV В, А i SAVE START 
му: с, 255 ; МАХ LEN 
JMP MIDO ; CONTINUE " 
BASIC VER={. 2 11:13:39 1% APR 1975 PAGE 107 
TAG ОРСО OPRNDS ' COMMENTS 
MIDs: ERU з 
; SUBSTRING ОР THE STRING AS STARTING WITH CHARACTER NUMEZA + 
; AND Y CHARACTERZ LONG - — 
СА: ARGNU ; LOAD X o 
MOV B.A, ; SAVE START ( 
PUSH B ; PUT ON STACK 1 
CALL ARGNU ; GET 3RD ARG я 
POP В ; RETREIVE 
MOV с, А ;SAVE LEM | 
MIDO: мом А,В » 0960 START 
LXI Hr, STRIN ; POINT STRING 
СУР м ; TEST IF ХО. 
мини i BRIF ХМ, 
4 ми ; OR EQUAL 
MI мо ; ELSE, RESULT IS NULL 
RET ; RETURN | 
"MIDI: ADD с i СОМРШТЕ END POSITION 
JC мо ; BRIF OVERFLOW 
зет 1 i COMPUTE XeY-1 
JC ^ MIDZ ; BRIF OVERFLOW 
CMP M ; COMPARE TO EXISTING LEN 
JC MIDS i BRIF X+Y¥-1<LEN( АЗ) 
MID2: MOV ALM ; ELSE GET ORIG LEN 
SUB 8 ; MINUS X 
INR A ; PLUS ONE 
MOV fA ; SAVE (REPLACE Y) 
MID3: mov mc ; PUT NEW LEN 
MOV Е, В | ; PUT START IN LO 
MVI DO ; ZERO IN MI : 
DoD D ; COMPUTE START 
LXI O: STRIN ; GET BEGIN 
MIDS: MOV AM GET А CHAR 
INX D ; POINT MEXT 
INX н ; DITTO 
STAX D ; PUT DOWN 
DCR с ; DECR СТА 
JNZ  MID4 ; СОР 
АЕТ ; THEN RETURN 


3201 


m 


IMZA 3030 3K BASIC мЄджі 3 11:15:03 15 GPR 1275 PAGE 103 


ADDR OBJECT LINE ТАЗ 


се 


` , 
X 
Е € 


ОРОСО OPSNDS COMMEMTS 
i357 303 {NSTR: Еди $ 
3304 ; 
: 3305 ; XsINSTR(Y, Аз, BS) 
à 330^ ; - 
а 3307 ; SEARCH FOR SUBSTRING 85 WITHIN STRING AS STARTING AT POSITI 
3308 ; RETURN О IF 8% IS MOT IN Аз 
3309 ; RETURN 1 IF 33 ІЗ NULL 
3310 ; ELSE RETURN THE CHARACTER POSITION 
23911 1 
1287 CD22iC 3312 CALL. авоми i GET Аз 
(зва 2158220 3312 LXI Н, STRIN ¿POINT AS 
ASAD BF 3314 GRA А i TEST Y 
1ЗАЕ СОВФІЗ 3313 · «МІ INSTA ? ERIF Y NOT ZERO 
SBi 3500 3316 ІМЗТІ: МУ MO ELSE As IS MULL 
1383 C3BD13 3317 „ме INST i; GO AROUMD 
1385 ВЕ 2212 INST2: CMP M ; TEST Y TO LEN(A3) 
1387 CABD12 331? «І INSTS i БАЈЕ ЕС, 
ізға 028113 3329 МС INSTL i BRIF ` > (Емаз) 
1380 4Е 3331 INSTI: мау С.А ; ЗАЧЕ У 
(ЗЕЕ 0509 3322 MVI 8,0 i ZERO НІ INCR 
12C9 ZZ ` 3323 MOV AM i SET ЗЕМ‹ АЗ) 
1301 71 332% SUS с ;MINUS Y 
13C2 3C 3323 INR А ;PLUS ONE 
13C3 92 3325 баб B ; COMPUTE START ADDR 
4204 87 3327 MOV ВА i # CHARS REMAIN IN AS 
130$ 25 3323 INST4: PUSH H i SAVE ADDR 
1305 241220 3329 LHLD ADDRt iGET ADDR OF ARG 
1309 23 3330 INX MH ; POINT NEXT 
13C^ < 3331 MOV DMN : ET HI ADOR 
{208 23 3332 INX MH ; POINT NEXT 
isce ЗЕ 3333 МОУ EM „ê ET (0 ADDR 
13с0 23 3234 INX H i POINT NEXT 
13СЕ 221220 3323 SHLD &DDRÍ ;UPDATED РТА 
1301 El 3335 обо H 4, RESTORE. ADDR ` 
1202 1А 3337 (бах D i GET СЕМІВЗ) М 
1303 87 3338 ова а ;TEST ТЕ NULL 
130% C2DD13 3339 МІ INSTS ; BRIF NOT 
1217 0Е01 3340 PHIL Col (SET POSIT = 1 
1309 79 3341 INSTS: МОМ Ac +» СЕТ POSIT š 
1Зпа 727012 3342 JMF  FDEC i CONVERT ТО DECIMAL У RETURN 
ізгі ЕЗ 3383 INST»: XCHG i FLIP/FLOP 
13DE 73 3344 MOV ALB СЕТ LEN OF Аз 
(ЗЕ за 3345 CMP M ; СОМРААЕ TO LEN 83 
13Е9 150214 33 JC INSTA i BRIF LEN(GBS) < LEN(OREM As) 
1283 ‘cS 3347 INST7: PUSH В ; ЗАМЕ СТА, POSIT | 
13Е% 05 3348 PUSH D ; ЗАМЕ ADDR As 
13F5 ES 3349 PUSH H i SAVE ADDR B3 
{SES ЗЕ 3350 MOV с,м ? GET LEN BS 
12E7 EB 3351 XCHG - PFLIP/FLOP š 
1З52 13 2352 INSTS: [NX г ; POINT NEXT BS 
13=? ір 3353 „рах р : GET BS CHAR 
14305 8080 SK BASIC VER. 3 11:17:04 14 APR 1978 PAGE 10? 
ALUR OBJECT LINE TAG ОРСО ОРЕНОЗ COMMENTS 
1ЗЕА ге 3254 СМР м ; COMPARE АЗ CHAR 
ЕЗЕВ C2F913 3255 ЗМІ ENST? ; ВЕТЕ NOT EQUAL | 
|ЗЕЕ 23 3356 INX H ¿POINT NEXT AS 
\ЗЕЕ 00 3357 рса с i DECR СТА (LEN(BS)> 
12F6 C2782312 3253 JNZ  INST3 „обе 
12F3 Е! 3359 POP H ; DUMMY POP 
1384 El 3250 POP H i GET DUMMY STACK 
LFS СІ 3351 POP B ; GET POSITION 
13F5 C2D913 3362 „ме INSTS ‚ЧЕ FOUND а MATCH 
i3F? 01 3353 INST?: POP D ; СЕТ PTR 35 
12РА El 3354 POP MH ; ВЕТ РТА As 
i2F2 51 3255 РОР В СЕТ CTRS, POSIT 
|ЗЕС ОС 3259 INR с UP РТА NUM 
| ЗЕ0 23 2257 INX MH ¿POINT NEXT AS 
{ЭКЕ 05 363 оса В : DECR 2 
ПАЗЕЕ 222013 335? мї  INSTA ` ; WOOP — 
іле СЕОО 3370 INSTA: MVI С.о „ЗЕ BS NOT IN Ая 
jaog 730913 3371 „ме INSTS » RETURN 


О фр ния 


IMSAI 2080 SK BASIC vER=w=i. 


Ашк 


1407 


> 


OBJECT 


АР 
225221 
En 
210000 
223921 


Z2ARAZ . 


эз 
3500 


224620 


ЕВ. 


сЕ 


, 203516 
' CZ3514 


со1вов 
44 
40 
254520 
CDOB1B 


СА2214 


| CD2CIB 
.C22615 


45 

23 
2225 
с02318 
с27814 


L (NE 


ТАЗ 


; EVALUATE EXPRESSION ROUTINE 

; LEAVE RESULT IN FACC 

; RETURN WHEN EXPRESSION ENDS (TYPICALLY AT END OF LINE) 
; 


L.DNIJP1: 
LDF: 


LUMP: 


LDV1: 


XRA 
STA 
XCHG 
LXI 


A 
РААСТ 


н, 9 
SPCTR 
PRISE 
мМ. 
м, о 
ЕХРЕЗ 


е 


11:17:38 1% APR 1975 РАЈЕ 110 


COMMENTS 


; CLEAR REG A 

; SET PAREM СТЕ 

i GET ñ ZERO 

;INIT СТА 

i POINT END OF PROGRAM AREA 
; POINT ONE МОРЕ 

; iNIT START GF STACK 

i SAVE IT < 

i RESTORE Н, А. 


; LOOK FOR CONSTANT, 
: КУР TÜ MON-SLAMK 
GQ TEST IF NUMERIC 
; BRIF МОТ 

; GO CONVERT NUMERIC (PUT ТО Face 
i ЗАМЕ ‘ 

ЗЕТ ADOR ЈЕ EXPR AREA 

i ÈO STORE THE FICC IN TEMP AREA 
i SAVE UPDATED ADDRESS 

; RESTORE H 

RESTORE L 

52 СЕТ AN OPERATION CODE 

‚ЗЕЕ IF LEADING SECIMAL FOINT 
;ERIF IS 

; GQ ЗЕЕ IF ALPHA 

; BRIF NOT 

i SAVE LST CHAR 

; POINT NEXT 

i DEFAULT FOR 1 CHAR VAR | 

; GO ЗЕЕ IF МО IS NUMERIC 

: BRIF МАТ 

: POINT NEXT 

; SAVE THE CHER 

i GET NEXT CHAR 

; TEST IF STRING 

i SAVE STATUS 

i BRIF NOT 

; GET LOW CHAR 

i SET STRING 

; SAVE IT 

i SKIP + 


VeRIMSLZ, за 

















IMSAI 2080 SK БАЗІС VERS4. 3 


BOR ОРЕСТ 


14259 
1458 


40% 


145Ғ 


148С 
ілер 
1490 
1491 

1492 
1495 
i495 
1499 
1498 
1498 
1496 
149Ғ 
1442 
1443 

1445 
1447 
1528 
1147 
iam: 

(за? 
ARO 
1283 
јава 
1485 
Lake 


Е} 

FSi 2 
С28215 
ЕВ 
36Е7 
Ез 
238215 
CDZC1B 
224014 
2B 

ЈЕ 
2220 
C^3114 
ES 
119E1D 
D7 


САРСІ8 
El 
ЕЗ 
| :ВЕ:Е 


С204%В 


3424 
3425 
3425 
3427 
3423 
342? 
3430 
3431 
3432 
3433 
3434 
3433 


LIME ТАЗ 


LOVE: 


-пугв: 


L DV: 


3436 


3437 
3839 
3432 
3440 
3441 
3442 
3543 
3444 
2544 
3446 
3447 
3448 
3442 
3450 


3451 


2452 


3453 


3454 


3455 
345» 
3857 
3423 
3439 
3450 


‚ 3451 


3452 


3463 


3454 
3455 
35546 
3467 
2443 
345? 
3470 
3471 
3472 
3473 
3474 


FUNCO: 
РИС i: 


RST 
СР: 
41 
PUSH 
MOV 
мом 


САЩ. ' 


LHL.D 
CALL 


OPCD OPRNDS 


1 


"fe 


D, PILIT 
2 


LDPI 


М 
D, FUNCT 
H 


11:19:29 15 APR 1975 PAGE 111 
COMMENTS 


i SKIP SPACES 
> TEST IF PAREN 
i BRIF 1$ 


; TQ D, Е 

50 GET VAR ADDR IN D.E 
;GET EXPR ADDR 

3150 STORE ADDRESS 

i SAVE ADDRESS 

iH, L. то D. Е 

; СЕТ STATUS 

i BRIF NOT STRING 

; GET OLI H, Ú 

; MARK 45 STRING ADORESS 
і КЕЗТОВЕ ~ Ú 

; G0 LOOK FOR OPCODE 
:00 FEE ІС FUNCTION 
‘SRIF IT’S NOT 

; POINT BACK TO 13T 
i ET THAT CHAR 

i TEST IF ЗРАСЕ 

i LOOP IF TROE 

3 SAVE м, 

a PDINT LITERAL 

i GO COMPARE 

; БАЈЕ RND 


GET H, L. 


; RESAVE 

; POINT LITERAL 

; 60 ЗЕЕ IF FN X 

; BRIF IS 

; GET Fi, L. 

i RESAVE 

i POINT LIT 

i GO COMPARE 

; BRIF РІ 

; ВЕТ Fie L. 

¿POINT FUNCTION TABLE 
i SAVE POINTER 

GET {ST SYTE 

i TEST IF END OF TABLE 
; RIF 15 

150 COMPARE 

; BRIF EQUAL 

¿FINO END LIT 

i POINT NEXT 3 
; POINT NEXT 5 
; ЗАМЕ 

i AGRIN 





IMSAI 2080 2K BASIC VER™). 3 


АПК 


1487 
1488 
1488 
1356 
i4nf 
со 
ісі 
$402 
1403 
146^ 
i4cs 
1407 
14CÀ 
1458 
ace. 
1^CF 
1470 
kani 
1402 
1274 
147 
1818 
i 498 
14DC 
ан 


қыш. 


14Е1 

14862 
{483 
146$ 
195% 
1165 
[423 
гако 
14EA 
[ЗЕП 
ДЕР 
1422 
1423 
1424 
1454 
LaF? 
1АЕС 
14РЕ 
1501 


1592 


15085. 


1505 
1507 
150a 


1508. 


OBJECT 


Е1 

СЗАЬ14 

0090416 
13 


LINE 


3475 
3475 
3477 
2478 
3479 


‚ 3430 


3421 
3422 
3433 
3434 
3435 
3435 


2397 


3433 


3489 


3490 
3471 
3422 
3473 
3424 
3495 
3595 
3497 
3493 
3499 
2500 


2501 


3502 
3503 
3504 
3505 
3505 
3507 
2508 
3509 
3310 
3311 
3312 
3313 
2314 
3515 
3212 
3517 
2513 
2919 
3520 
3521 
3522 
3523 
2524 
3525 


ТАЗ 


РУМСЗ: 


FUN 4: 


ЕМ.2: 


FNL.3: 


LDRNDO: 


LDPT: 


CFCO 


QPRNDS 


H 
FUNC 1 
SKP2Z 


тас” . 
SNERR 
сокр 
4 
FUNCO 
~ 

RND 

H 

D 

LC DF 
ñ 

B 


із іу tS 


v. 


15 APR 1975 PARE 112 
IZOMMENTS 


; GET ADOR 

i LOOP 

; FIND END ЭР LIT 

;POINT NEXT 

i GET A BYTE LOW 

i SAVE IT 

; POINT NEXT 

; GET HI BYTE 

i SAVE IT (В, С = ADDR ЈЕ РУМО) 

; SKIP BLANKS 

; TEST РОВ OPEN PAREN 

; BRIF MISSING PAREN 

; POINT TYPE CODE 

‚ово IT 

i CONTINUE 

i ЗЕТ HL 

: ET 1ST CHAR 

i SPACE 2ND CHAR 

;POINT TÜ NEXT 

; ЗЕТЕ VARIABLZ - 
‚ ОМММУ RESET STACK POINTER 

; G0 GET ЕМ NAME 
COPY TO g&,C 

; ЗАМЕ 

i SAVE н, 
POINT EXPR STACK 

i PAINT NEXT : 

; MOVE THE LETTER 

; POINT NEXT . 

i MOVE DIGIT (a7) 

; POINT NEXT 

i MOVE CODE | 

: ЗЕТ LO NAME 

i TEST ІТ 

i BRIF NOT STRING 

; MOVE CODE. 

; SAVE POINTER 

i GET н, L. 

; GET NEXT CHAR 

; TEST ІР OPEN PAREN 
; BRIF NOT 

i CONTINUE 

; TEST. IF RND(X) 

? BRIF 15 

> ELSE, SAVE H, % 

50 БЕТ RANDOM NUMBER 
ìi RESTORE H, L 

; RESTORE STACK POINTER 
; АСТ AS IF CONSTANT 
i SET NON ZERO 

; DUMMY STACK POP 





e, 


. 











- 


IMSA 3030 SK BASIC VER=;.3 


епк 


1506; 


15а0 


15066 
1511 
1514 
1515 
1515 
1519 
1518 
1518 
151C 
151D 
151E 
151F 
1522 
1522 
1524 
1523 
1528 
152С 
152F 


1520 : 
1532 2 


1535 


1536 . 


1537 
1534 
153С 
153F 
1531 
1544 
1546 
1549 
1548 
15446 
1S4F 
1552 
1554 
1555 
1554 


` 1557 


1552 
1559 
issc 
1550 
ISSE 
1544 
1562 
1565 
1556 
1567 


LINE 


3335 
3527 
2523 
3522 
23320 
2531 


. 2532 


3533 
3534 
3535 
355 


TAG | 


LDDTM: 


ЗКРР: 


LDDTP: 


LITST: 


LIFI: 


ОРСО 


PUSH 
PUSH 
LXI 
МЕ 
РОР 
XCHG 
LHLD 
INX 
мом 
INX 
мом 
INX 


ОРКМОЗ 


11:22:59 15 APR 1975 PAGE 


COMMENTS 


; SAVE STATUS 

; SAVE Hu ы! 

? GET ADDRESS СЕ 3. 1415 
; GQ ACT LIKE VARIABLE 
; POP THE STACK 

i FLIP/FLOP 

; ЗЕТ ADOR 

iPOINT NEXT © 
¿HIGH ADOR 

; POINT МЕХТ 

ғылы ADDR 

i POINT NEXT 

; CODE 

; SAVE ADOR 

і RESTORE H, і 

;МЕХТ MUST BE BATA TOO 
$ TEST IF UMARY MINUS 

; BRIF МОТ 

3 SAVE H, L 

i GET EXPR END 

; POINT OME MORE 

; CODE FOR NEG 

RESTORE РТВ 

і RESTORE M, b 

i POINT PAST THIS BYTE 
¿NEXT MUST BE DATA 
iTEST IF WNARY PLUS 

i IGNORE IF ІЗ 

; ELSE, TEST IF ОРЕМ PAREN 
i BRIF IS 


113 


i TEST IF LITERAL (SINGLE QUOTE) 


; BRIF IS 
i TEST IF LITERAL 


; ВАТЕ NOT CONSTANT, FUNCTION, 


i SAVE DELIMITER 
; POINT BUFFER 

i INIT СТА 
¿POINT NEXT · 

i LOAD NEXT 

i POINT NEXT 

: STORE IT 

¿TEST IF END 

; BRIF ERROR 

; COUNT IT 

; TEST IF END GF STRING 
; BRIF NOT 

; POINT NEXT 
POINT BEGIN 
¿GET COUNT 

; Рут COUNT 

: DIVIDE BY TWO 


ОА 





- 


IMSAT 3080 3K BASIC VER=L 3 


рок 


1558 
1559 
(Sen 
156C 
150 
1570 


1571 22 


1574 
1575 
1579 
1579 
17А 
1570 
157Е 
157Ғ 
1520 
1523 
1584 
1585 
1535 
1527 


1568 3 
i224 . 


1580 
. 135Е 
1591 
1592 
1593 
1594 
1595 
{1595 
1597 
1593 
1599 
i59c 
1590 
1550 
1561 
1524 
1585 
15АЗ 


1249 : 


{Sas 
ізде 
{Sar 
1582 
ужа 
ръка 
1587 
ове 
{SRC 


OBJECT 


Е1 


233515 
СЕ 
FESS 
0621 
CAEDIS 
FE2D 
0625 ` 


LINE ТАЗ 


3577 
3373 
3579 
3539 
3531 
3352 
3323 
3534 
3555 
392925 LITZ: 
3597 
3533 
352? 
3590 
3591 
3272 
3593 
3524 
3494 
3525 
3597 
3328 
3529 
S400 
3401 
3502 
3503 
3604 
3695 (173: 


2605 


3507 
3503 ` 
3602 

3510 

3511 LIT4: 
3612 


3513 OBRCE: 


3614 
3615 
3615 
3517 
3413 
251? 
3620 
3521 


3522 LOOKO: 


2523 
3524 
3625 
3426 
3427 


ОРСП 


INR 


OPRNDS 


M, 231 


EXPRS 


D, STRIN 
В 5. 

~ з 
B, ñ 


М, 





11: 24: 4? 
COMMENTS 


РОЗ ONE 

i SAVE IT 

i ZERO HIGH 

; BAVE PTR 

i BET СТА 

i PLUS OLD 

¿UPDATE IT 

‚СЕТ OLD H, L. 

i БЕТ А ZERO 

i BET 2 WORK BYTES 
i SUB | FROM COUNT 
; CONT INUE 

‚СЕТ ADOR OF STACK 
i SAVE PTR TO STMT 
i SAVE M.L ІМ DE 
СЕТ START ОҒ EXPR 
; PLUS ONE 

;HI BYTE 

; POINT NEXT 

iLO BYTE 


G POINT NEXT а 


; TYPE CODE 

i ЗАМЕ ADOR 

; D, Е BACK та 4, J 

i POINT STRING HRSA 
? ВЕТ COUNT 

; ADD. ONE TO COUNT 
; SAVE СТА 

; GET А BYTE 

> STORE IT 

; POINT MEXT 


à DITTO 


i DECR СТЕ 

; LOOF 

i RESTORE H.L 

; NEXT 13 ОР 

; SAVE H, L. 

i POINT PAREN COUNT 
; ADO 1 

; GET ADDR 
POINT NEXT 
РОТ CODE 
ЗАМЕ ADDR 
;RESTORE H, L 

i DO SKIP CHAR 
5 SKIP BLANKS 

; TEST IF PLUS 
; CODE 

i BRIF IS 

: TEST IF MINUS 


15 SPR 1275 PAGE 114 


Ф 
( 














(SAI 3080 ек ВАЗТС VER=:. 


ак 


J SBE 
15C1 
1562 
ISES 
1503 
15СА 
15СС 
15CcF 
1501 
1514 
151 
1503 
1508 
1500 


j SEO : 


E3 
154 


LSE7 . 


i SEA 
(БЕР 


{ЗЕЕ 


157: : 
, ars | 


ISPS 
15Е7 
1523 
15Е? 
{SFB 


1SFC: 


LSFF 
1502 
1604 
150% 
1605 
1507 
LAQA 
1600 
1602 
1612 
1613 
1618 


1617 ` 


1613 
i614 
1618 


OBJECT 
CAEDIS 
РЕЗЕ 
0645 
САЕ015 


2520 


2650 


1517 СА2А16 


1622 
152% 
1628 
152? 


110400 
285520 
ЕР 


FD 





CINE 


3623 
2629 
3530 
3631 
3632 
3633 


3634 


TAG 


ӘРІ: 


OPLP1: 


3 


OPCS OPRNOS 
І 2Р1 
CPI 7/” 
AVI В, 9 
JZ ОРІ 
CPI Тағы ТА 
MVE B, 1Z? 
«2 ОРІ 
PI 73 
JZ ОРЗ 

= а Бонн ” 
AZ ОРТ 
CPI ^n^ 
мет 3, 55 
JZ ОРІ 
MUST 

LDA PARCT 
сва A 
SHLD ADDRZ 
JMP EVAL 
PUSH н 

LXI 0,1 
LHLD EXPRS 
MOV А.В 
ANI 227 
MOV са ^ 
MOV AM 
ӨМІ 227 
CMP С 

JC INSI 
47 INSO 
ANI 3 

INX 9 

DCX м 

DCR 4 

JNZ  OPLP2 
ЈАР ӨРІРІ 
ANI 32 

JZ INS3 
сх н 

мх D 
„МАР INS 
MOV Ам 
CPI 27? 

JZ INS 
ANT 224 
42 INS 
LXI 0,4 
С.О EXPRS 
RST 7 

Bg З 


11:26:35 15 &PR 1975 PAGE 115 
COMMENTS 


; BRIF 13 

? TEST IF DIVIDE 

; CODE 

i BRIF ІЗ 

; TEST IF ЕХРОМ 

i CODE 

? ВАТЕ ІЗ 

i TEST IF CLOSE PAREN 
; SRIF 12 

; TEST IF COMMA 

i BRIF IS 

; TEST IF MULTIPLY 
; CODE 

; ВАР ІЗ 


2E END OF EXPRESSION 


; СЕТ OPEN PAREN COUNT 

i TEST IT 

i BRIF 3 OF (75 NOT = # OF ›-5 
; AVE ADDR OF STMT 

;30 EVALUATE 

a SAVE HL 

i INIT BYTE COLINTER 

? ВЕТ END OF EXPR 

i СЕТ ОР 

i TURN GFE ALL BUT РАТУ 2115 
i ЗАМЕ ІТ 

: СЕТ ПР 

i TURN OFF ALL BUT PRTY SITS 
i COMPARE PREV То THIS 

; BRIF ОР LESS THAN THIS 


GOR EQUAL 


» ISOLATE LENGTH 

i ADD CTR 

; POINT PRIOR 

i SUB í FROM COUNT 

i UL COP 

i ОВР OUTER 

; TEST IF PLUS/MINUS 

; BRIF NOT 

i ELSE, POINT PRIOR 

¿ADD TO COUNT 

; ВА AROUND 

;RELOAD ОР 

; TEST IP UNARY MINUS (TREAT AS V 
; BRIF IS 

; МАЗК š 

i BRIF AT COMMA PAREM OR START OF 
;INÍT COUNT 

;PPOINT START 

t ADJUST TO FIRST OP 


> 


IMSAI 2080 SK BASIC VER=1. 3 


AUTK OBJECT LINE ТАЗ — ОРСО 
1524 23 2679 INS: ІМХ 
1523 4Е 3680 мом 
1620 70 3681 OV 
1630 41 3432 ` мом 
152E 18 3533 ocx 
1522 7А 3534 MOV 
1630 83 2685 она 
1631 C22A15 3635 JNZ 
1634 224620 2527 SHLD 
1637 C1 363% РОР 
1638 С22515 34639 ЗМР 
1538 245221 ` 3590 0Р2: ` (па 
163Е 87 3591 ORA 
i639 CAEO1S 3622 JZ 
1442 ЕЗ 2593 XCHG 
1543 264520 3694 LHLD 
1545 23 357% INX 
1657 3501 3596 MVI 
1449 224620 3697 SHLD 
1548 ES 3628 XCHG 
1440 C32415 ЗАР? ЈМР 
1639 3065321 3700 ОРЗ: LDA 
1459 30 3701 оса 
i454 325821 3702 ST 
1437 FAA014 3703 JM 
"рака 23 3704 INX 
165 221522 3705 SHLD 


165Е 2А4620 2705 EVAL: 39 


1551 9010000 3707 EVO: LX1 
1654 04 ` 3703 Емі: INR 
£4665 TE 3709 мом 
1555 29 3710 DCX 
1657 РЕЕЗ 3711 CPI 
| 1669 С27416 3712 JNZ 
іььс 28 3713 Еміа: DCX 
1550 28 3714 DCX 
· 166g 04 3715 INR 
ЕБЕ 0% 3716 ІМЯ 
[470 ОС 3717 INR 
1671 С35416 3713 „ме 
1674 FEAF 3719 EV2: CPI 
1575 CA731C 3720 JZ 
157? РЕСЕ 3721 CPI 
147 ATS 3722 JZ 
167Є FS 3723 PUSH 
147F ЕЕЗ 3724 ANI 
[681 FEAS. 3725 СРІ 
1483 CA2?416 3726 .JZ 
1434 FEC3 3727 СРІ 
1523 CA9415 3723 JZ 
1688 Fi 372? РОР 


OPRNDS 


EXPRS 
H 

М, £ 
EXPRS 


SKPS 
РААСТ 
E 
РАКЕТ 


. SNERR 


H 
AODR3 
EXPRS 
8,0 


11:23:40 15 APR 1275 PAGE 115 
COMMENTS 


; POINT NEXT : 

i ЗАМЕ CHAR AT (H, L) 

i ROTATE TO (M.L) 

; COPY 

; DECR CTR 

; GET HI 

OR WITH LO 

; 092 

i SAVE NEW BEGIN 
;RESTORE H, L. 

; NEXT AFTER THIS ІЗ DATA 
i GET ОРЕМ PAREN COUNT. 
; TEST IT - 

; BRIF END OF EXPR 

i Е ЗЕ SAVE H, L. 

; GET EXPR BEGIN 
;POINT NEXT 

; MOVE а COMMA 

5 ЈРОАТЕ POINTER 

FLIP SACK 


; GET OPEN PAREN COUNT 

PSSST FACT ONE 

‚ЗАМЕ IT^ 

i GRIF TOO MANY У S + 
; POINT NEXT SOURCE 

; SAVE ADDR : ( 
i СЕТ END oF EXPR 

i INIT B, Š TO ZERO 
; COUNT EACM ВУТЕ 
СЕТ CODE IM SEG А 
;POINT NEXT 

i TEST ІР DATA 

; BRIF МОТ DATA 

; POINT NEXT 

; DITTO 

; BUMP СТЕ 

; BY TWO 

i COUNT THE TERM 

» LOOP 

i TEST IF NUMERIC USER FN 
ЕМІР IS 

; TEST ТЕ STRING USER FN 

i BRIF IS 

i ELSE SAVE STATUS 

i MASK IT { 

i TEST IF NUMERIC FUNCTION 
i BRIF IS 

; TEST IF STRING FUNCTION 
i BRIF ІЗ 

; RESTORE CODE 











IMSAI 3020 2K BRSIC VER=1. 3 


AFIL 


(вас F 


155Е 
169) 

1594 
59% 
1693 
1679 
іь»д 
1538 
1276 
1620 
1697 
1681 

224 


OBJECT 


і6АЗ 05 


1646 
1589 
1658 
1568 
LEAR 
jene 
1 АР 
j SRD 
1681 


1693 | 


1583 
із 
1689 


вс. 


1580 
168E 
i ÛL 
L6C4 
1553 
L405 
1607 
15CS 
155? 
16CA 
ice 
1500 
1400 
16031 


1602 


1403 
1504 
iens 
i SHS 
· 1652 
1618 
1608 


ES 


L ТМЕ 


2739 


27214 


3732 
3753 
3734 
3735 
3735 
3737 
3733 
3739 
3740 
3741 
3742 
3743 
3744 
3735 


TAG 


EVARA: | 


š 


ЕУЗА:. 


ОРСП 


OPRNDS 


MOV 
нр 


M. D 
ADDRZ 


INX H 
INX M 


MOV А.М 
MOV B.M 


11:31:05 13 APR 1275 PAGE 117 


COMMENTS 


i TEST ТЕ STRING ADDR 

? ВАТЕ IS 

; ВА AROUND 

RESET TO TYPE CODE 

; ЗАМЕ ñDDR 

; DUMMY POP 

i SAVE CTRS | 

; POINT TO LOW JMP ADOR 
iLO BYTE О 

; POINT BACK 

i HIGH BYTE 

г ЗАМЕ LOCATION 

i GET RETURN ADDRESS 

; SAVE ОМ STACK 

i SAVE ADDRESS 

i 00 GET LIST APG 

СЕТ Н.І. ADDRESS 

; GO EXECUTE THE FUNCTION 
i FUNCTIONS PETUFM HERE 
: GET ADOR Func 

¿POINT L9 

i POINT ТҮРЕ 

i LOAD IT 

; MASK ІТ 

; TEST IF STRING 


. š BRIF IS 


i GET CTRS 

;GET COUNTER 

i PLUS 

; TWI NORDS 

і STORE 17 

СОАО ZERO TO H.L 
i GET BLOCK ЗЕ 

; BYTES 

: GET STACK ADOR 

i SAVE LTRS " 

; ЗАМЕ ADDR 

i BO STORE THE VARIABLE 
i ТУРЕ NUM 

; ВЕТ ADDR IN STACK 
i GET ADDR LST ARG 
;STORE ТҮРЕ CIDE 

i POINT ONE BACK 

i STORE LO ADDR 

i POINT BACK 

; STORE HI ADDR 

i СЕТ LOCATION FUNCTION 
i POINT LO 

i POINT TYPE 

i LOAD TYPE 

; GET TYPE 








IMSAI 5080 SK BASIC VER=i. 3 


ADDR 


і6рс 
1550 
jolt 
јађЕ 
15ЕО 
16£2 
16E2 
1524 
18Е3 
16Е5 
16Е7 
SES 
16Е? 
16EA 
|АЕП 
Lard 
[6Е3 
1-24 
1625 
ДОРА 
15k? 


„ФРА C 


1527 
БЕП 
1700 


1703 


1704 
1704 
470» 
1709 
i704 
i708 
706 
170P 
1702 
i768 
i710 
i711 
1712 
i713 


GBJECT 


32 
04 
04 
CDED1A 


С35Е1 


115870 
ја 
ЈЕ 
3C 
285921 


210900 


C1 
ES 
3D 


520417 
зә 


cS 
= 
1А 
zÇ 
47 
LA 
Р 
15 
23 


05 


171% C2OF17 


1717 
4719 
4716 

171€ 

1721 

1723 

1725 

1759 

1722 

1720 


VERA 
CTI 
FEOS 
сала: 
SEOL 
CDED19 
221620 
2056321 
87 
CAB21*5 


LINE TAG 


3731 
3732 
373$ 
3734 
3735 
3725 


` 3787 


3738 
3787 
3790 
3791 
3792 
3723 
3798 
37253 


3725 EVS: 


3797 
3723 
3799 
3300 
3301 
3202 
3303 
3304 


3305 
2306 
3307 куза: 


3303 
3309 
S310 
3211 
3312 
32913 


3214 


3815 


3315 EVA4B: 


3917 
3313 
3919? 
3320 
3321 
3322 


3823 


3324 ЕУ: 


2925 
3326 
3927 
3823 
332? 
3830 
3331 


ОРСО 


OPRNDS 


B 

SQUIS 
EVAL. 

D, STRIN 
0 


a 
SPCTR 
ша 
B. O 

B 
ЗРСТА 
н. о 


11:32:47 15 APR 1275 PAGE 11:3 


COMMENTS 
i ADJUST на 


i LOAD TYPE 

i RESTORE CTRS 

; ISOLATE #ARGS 

? SHIFT RIGHT 

> AGAIN 

; ОМСЕ MORE 

г ЗАМЕ IT 

; TIMES 2. 

i TIMES 3 

; POINT 

LST POSIT IN LOC 
; 30 COMPRESS STACK 
i START AT BEGINNING 
; POINT STRING SUFFER 
¿LOAD IT 

; DIVIDE BY TO | 

; ADD 1 

; GET SP COUNT 

; SAVE LO 

; SET HI 

i ROD NUMEER WORDS. 
i SANE SP (ZQUNT 


i ВЕТ SOME ZEROS if 
GET CTRS | - C 
; СЕТ 1 WORD У 
; DECR СТА 

; LOOP 


:5ЕТ ADDRESS IN H, L. 
i БЕ-ЗАУЕ СТАЄ 

; ЗАМЕ ADOR 

ЗЕТ COUNT ` 
i PLUS ONE 

; SAVE IT 

: GET A BYTE 

i STORE IT 

¿POINT NEXT 

> DITTO 

; DECR СТА 

; СОДР 

: TYPE CODE 

; CONTINUE 

i TEST IF OPEN PAREM 
> БАТЕ NOT 

i DELETE 1 BYTE 

; GO COMÉRESS IT 

; RESTORE ЗТМТ POINTER 
; GET SUBSR SWITCH 

i TEST ІТ 

;BRIF NOT IN SUBSCRIPT 


Án 

nie 
ғ 
- 
Е 











{МХАТ 3030 2K вазтс VER-1.3 


ANOR 


173 
1733 
i734 
172 
173A 
1738 
173Е 
1741 
178? 
1785 
1745 
1748 
1758 
1740 
1750 
174Е 


174Е! 


i750 
1755 
1776 
{797 
1753 
1758 


1730 . 


1751 
4760 
1763 
1754 
1757 
1758 
17438 
1750 
1779 
1773 
1773 
1778 
1778 
1770 
1720 
1733 
1785 
1733 


1738 


1730 
1720 
1794 
1734 


‚ 1797 


. 179A 
1790 
179Е 





OBJECT 


285321 
B7 
6282$ 
CISELS 
87 
С25В17 
386331 
87 
£44013 
79 
FeO} 
СОУСІВ 


11ЕЗСЕ 
СА?017 
FEOL 
CALAIS 
2251 
CA0612 
РЕЗ} 
11C717 
CaCI 
23 

23 


LINE 


3932 
3233 
3334 
3335 
3836 
2337 
2332 
3339 
3340 
334} 


TAG 


Ече: 


ЕУТ: 


Еуто: 


PED 


LDA 
ока 
«МІ 


ОРКМОЗ 


РААСТ 
А 
Собко 
EVAL 
A 

EV? 
DIMSH 
A 
EDMI 
ñ, С 

1 
STERR 
H 


М 


D, M 
H 


11:34:51 15 APR 1975 Р 


COMMENTS 


i GET OPEN PAREN COUNT 


i TEST 
; BRIF NOT ZERO 


зе it? 


,ELSE EVALUATE COMPLETE SUBSCR 


; TEST 
; BRIF NOT 
OET DIM ЗЧ 

; TEST ІТ 

; BRIF NOT OFF 


вет TERM COUNT 


; ТЕСТ IF ONE 

; ERROR IF МОТ ONS 
i POINT.HIGH ADDR 
; ЗАМЕ 

ťi HIGH TO D 

; POINT LOW 

;LOW TO Е 

130 LOAD VALUE 


. з ВЕТ STACK ста 


: ВЕТ LO BYTE 

i PLUS НІ 

i BRIF ZERO : 
RETURN 2 BYTES 

; DECR CTR 

i LOOP 

i GET DIM зи 

i TEST IT 

; BRIF ON 

i RESTORE STMT PTR 
; RETURN TO STMT PROCESSOR 
i TEST IF PLUS 

? ADDR 

i BRIF IS 

i TEST IF MINUS 

; ADDR 

; BRIF IS 

; TEST IF MUL 

$ ADDR 

; BRIF 15 

i TEST IF DIV 

i ADDA 

; BRIF ІЗ 

; TEST IF сомма 

; BRIF IS . 

; TEST IF UNARY MINUS 
? BRIF ІЗ 

; TEST IF EXPONENTIAL 
; ADDR 

i ERROR IF NOT 
POINT TO 

; 1ST DATA 


IF ЄМО OF EXPRESSION 


IMSAT 2080 SK BASIC ЧЕВ=|, 3 


ALRK 


179F 
1749 
1781 
1782 


1723 · 


1754 
1785 
1723 
1789 
1788 
1788 


17: 


1788 
1785 
17АЕ 
1782 
1783 
1725 
1787 
17ЕЗ 
(7ЕН 
178С 
1780 
17ЕЕ 
17? ВЕ 


17C1 ` 


1764 
1707 
17423 
17СВ 
47CC 
i7cn 
17СЕ 
` 171 
172 
1715 


OBJECT 


212420 
EF 


212420 · 
 C36COE 


LINE 


3333 
2234 
3235 
32335 
3337 
33338 
3889 
3390 
3391 

3392 
3393 
3394 


TAG 


3895 ` 


33?5 
3897 


| 3393 


3377 
3200 
3701 
3202 
3203 
3204 
3905 
3205 
3207 
3203 
3209 
3910 
3211 
3712 
3913 
3214 
3915 
3916 
3917 
3913 
3919 
3920 
3721 
3722 
3723 
3924 
3925 
3225 
3727 
3723 
3323 
3220 
3931 
3732 
3733 


FAnDDJ: 


POWER: 


і Х^В = EXP(B*LÜG(X)) 


хак: 


ЕМУ: 


PTO 


PSH 
РН 
"OV 
INX 
мом 


JMP 


LXT 
RST 
LXI 
ЧМР 
РОР 
РОР 
осх 


OPRNDS 


EXP 
F, TEMP 1 
яг 


A 

M, ТЕМРІ 
FMUL. 

H 

8 

H 


11: 37:43 15 APR 1275 PASE 120 
COMMENTS | 

i SAVE OTRS 

i SAVE ROUTINE ADOR 

; HIGH ТО D 

; POINT NEXT 

ILOW TO E | 

i SAVE POINTER 

;G0 LOAD VALUE 
;RESTORE H, L 

¿POINT 2ND бата 

; ЗАМЕ 

i: HIGH TO D 

POINT NEXT 

ШОН TO E 


` ¿POINT NEXT 


‚СЕТ PREV ТУРЕ 

i TEST THIS ТҮРЕ 

; BRIF MIXED MODE 

; POINT РАСК 

i POP ADDR FROM STACK, PUSH H ONT 
¿RETURN ADDRESS š 

; SAVE ON STACK 

i SAVE JUMP ADDR 

; PUT VAR ADDR TO HL 

¿FAKE CALL TO ROUTINE 

; TEST IF STRINGS 

; BRIF ІЗ ds 

; ELSE, GO ADD | ( 
; SAVE ADDR OF YAR 

; POINT SAVE AREA 

i SAVE X 

; RESTORE HiL 

LOAD IT 

i POINT SAVE AREA 


- 


. ЗЗАЧЕ В 


iPOINT CONSTANT: 2 

i 00 SEE IF X^2 

; ERIF X^2 

i POINT X 

; GO LOAD IT 

‚СЕТ NATURAL LOGRITHM 
iPOINT В 

$30 MULTIPLY 

? ВЕТ EXP FUNC 


¿POINT X 
:.060 X 

; POINT X 

; TIMES X 

i GET Н, L 
GET СТА$ 

; POINT BACK 
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LINE ТАЗ | OPCD OPRNDS 


Ап OBJECT COMMENTS 
| ТЕЗ 28 2334 DCX н ; AND AGAIN 
17259 CDOB1B 3735 CALL GTEMP ;30 SAVE FACC 
17ЕС FF 3736 RST 7 i ADJUST на. 
[7ЕП F? 3737 ОВ -7 
17ЕЕ 3504 3958 MUI ALS ; DELETE 4 BYTES 
1300 СРЕДА | 3933 CALL SQUIS ; 60 COMPRESS 
1903 C32E15 2940 JMP EVAL ; CONT INUS 5 
1305 23 3941 EVNEG: INX H ; POINT ВАСК TO OP 
1207 cs 3242 PUSH B ; SAVE CTRS š 
1203 ЕЗ 3243 PUSH H i SAVE H, L 
1909 23 2944 INX H $ DITTO 
180A 56 3245 MOV р.м ; GET НТ ВУТЕ 
130B 23 |. 394 INX H ¿POINT NEXT 
1800 "E 3947 MOV Е, М ; СЕТ LO BYTE 
1200 С02513 3943 CALL Емо i 60 LOAD чая 
1310 CDDA11 324? CALL NEG iGO NEGATE IT 
1813 Е! 3230 РОР H ; JET LOCATION 
1314 C1 . 3251 POP В ; GET CTRS 
1815 СДОЗІЗ 2952 CALL GTEMP ° ,G) STORE FACT IN STARK 
1313 FF 3243 | ЕЗТ 7 ` ; ADJUST H, L. 
5812 FC ' 395 DG -а 
1814 3EO01 3955 ЕУСОМ: MVI А, І ; DELETE 1 ВУТЕ 
1812 COEDIA 2255 CALL 30013 ; COMPRESS 
181F 215821 3257 LXI Ws смаст ;GET COUNT 
1322 34 : 3253 INR M _ +; INCR 
1323 CSSEI4. ` 2252 . JMP EVAL ` ' ` „ CONTINUE 
1325 22 ` 3950 EVLD: INX H POINT ТУРЕ я 
1827 7Е 3951 ' MOV ALM ;LOAD IT 
1823 З2Е 2: 3962 STA NS ; SAVE IT 
1828 En 32243 XCHG ; SAVE HL IN D, E 
1920 FSET 3764 ОРІ" 2491 ; TEST IF STRING 
рез C22300 2365 ЗМІ RSTS ; LOAD FLOATING POINT 
1821 115320 3955 LXI 0, STRIN ¿POINT SUFFER | 
1934 7E 3957 ` MOV Ам ; GET COUNT ` 
1335 3C 3958 INR А i 200 ONE 
1835 47 3959 MOV B.A ; SAVE COUNT 
1237 7E 3970 EVLDi: MOV AM ‚ВЕТ NEXT 
1833 12 ` 3971 STAX D i STORE ІТ 
1839 23 3972. тмх MH ; POINT NEXT 
183A 13 2°73 S EN В ; DITTO 
1338 05 2974 DCR B ; DECR. COUNT 
1322 С237іЗ 3275 МХ ЕЛО: ; LOOP 
1837 С? 3976 ВЕТ ; RETURN 
3977 ; 
1340 79 3778 EDM1: MOV AC ; GET ITEM COUNT 
1541 ЕЗ 3279 PUSH H ‚ j SAVE HL 
1942 FEOi 3780 СРІ 1 ; TEST IF 1 
1944 C253i9 3981 ` «МЕ . ЕОМЗ ; BRIF NOT 
1847 0504 3282 MVI В, 4 ; GET COUNT 
1649 212420 3283 LXI нм. TEMS ;POINT AREA 
1840 СОЗЗіС 3934 CALL ZEROM 


: 50 ZERO IT 





iMSAI 


ALR OBJECT 
184Ғ Е! 
i750 GEOL 
1552 С? 
1353 FEOZ 
1335 I22501A 
1353 FF 
1352? 05 
1954 S 
1258 23 
1850 SE 
4350 CD2613 
1350 212420 
1263 Е7 
i844 C34F13 
{S47 COSBIC 
{55А 4Е 
1868 0400 
1550 cS 
134E 212420 
1671 ЕР 
1872 
1875 ЗЕ 
1375 1500 
1873 C1. 
1879 ЋЕ 
187, 325421 
1870 C? 
187Е 73 
187Е 
1921 47 
1382 CS 
1533 ЕВ 
1253 2АЗ821 
1327 FS. 
1528 АЕ 
ies | 


210000 
edem 1 
254520 
1897 ES 
із»а 23 

> 2600 
224620 
346377 
ЗАЗ FS 
1324 EB 
ЗЕРР 
326821 
јава ZDi1C14 


IMSAI 3020 2K 


ADDR OBJECT 


18280 F1 
12АЕ 326321 
1381 221520 
1554 Et 
1885 "7224620 
{Ses ЕТ 
1389 224271 
ISRC FL 
1980 323321 
1300 El 
5901. 9 
тасы ся 
lec; ЕВ 
` 49053 СОЗР1В 
1307 91 
1703 21 
120? 01 


АЗСА СОЛО 


art ЕВ 
LISCE 2А1620 
1301 ЕЗ 
1302 225514 


$036 SK 


CD2B1C 


BASIC VERI. 


LINE ТА 


79925 EDMZA: 
i935 

3233 EO: 
228? 

5290 

3291 

3292 


EDMS: 


4012 LDV2A: 


EASIC VER=1. 
LINE TAG 


4035 
4037 


3 
Оғо 
РОР 


MYI 
RET 


ОР«МОЗ 


D, M 

H 

є. M 
EVLD 

Н, TEMP1 


РАКСТ 
SPCTR 
H 

H, Ó 
SPCTR 
EXPRS 
H 


H 

Мо 
EXPRS 
DIMSW 
PSF 


А, 255 
DIMSW 
LOOKD 


о U 
D 
2) 
о 


ай OU 


08:22 


E 


D 
e 
о 
8 


b^ 


11:44:13 15 


COMMENTS 


; RESTORE H, L 


SET COUNT 
; RETURN 
(TESI ІР 2 


; SL SE; 


ERROR 


; POINT 2М0 ARG 


¿SET HI ADDR 


¿POINT NEXT 


+ ВЕТ LO ADOR 


i LOAD THE ARG 


; POINT AREA 


i SAVE THE ARG 


$ CONTINUE 


¿GET BIN ОҒ FACC 


; PUT TO C 
; CLEAR HI 
i SAVE COL 


; POINT 2м0 ARG 


i LOAD IT 


: GET BIN IN REG А 


;MOVE LO 

i LEAR HI 

i GET COL 

: GET A ZERO 
i RESET SW 

; RETURN 


СЕТ HI NAME 


» ЗЕТ ЗІТ 
i RESTORE 
; SAVE маме 


Set 


SAVE 


a pet 


ба 
ЗАМЕ IT 
DET А 7ЕЕО 
КЕЗЕТ СТА 
БЕТ ЕХРЕЗТ 
ЗАУЕ IT 
POINT NEXT 


Ci 
n 


= = & " Bt pe ә. y. ә. + з- 


: LEAR REG A 
RESET COUNT 
STACK CO 


SAVE HL IN DE 
PAREN СОЦМТ 


UMTER 


i SET NEW START 


; SAVE IT 


; GET PREV ЗЕ 


; ЗАМЕ ІТ 


i RESTORE H, L 


? SET ON VALUE 


i SET сы 


i RECURSIVE CALL, 


11: 47: 04 
COMMENTS 


i ВЕТ DIM Зи 
;REPLACE IT 


i BAVE HL 


; GET ЕХРЕЗТ 
; ЗАЧЕ ІТ 


; RESTORE IT 


15 APR 1975 


; GET STACK COUNTER 


? БЕТ PAREN COUNT 


; RESTURE IT 
i БЕТ NAM 
ЗАМЕ ROW 

a SAVE СОМ 


РОТ МАМЕ IN 0, Е 


; 30 FIND ADDRESS 


; ЗЕТ ADDR 
i RESTORE COL 
; REZTORE ROW 


: ET SUBSCRIPT «Б 


СЕТ н, L 


(PUT IN D, š> 


TURNS ADDR IM ( 


: ЗАУЕ Ом STACK 


a CONTINUE 


| + 
` 


/ 


a | | | | | a = ee x 











(МВА! 8080 СК BASIC МЕНжі. З 


атша 


1885 


1305 
1808 
1Sus 
1800 


Lane 


1381 


1572 


1863 · 


| БЕЗ 
| ВЕР 
1550 
icra 
bars 
1325 
185 
13Р7 
1359 
[SFC 
1gFF 
i?00 


1202 


1905 
1397 
1204 
1900 
190g 
1911 


1213 3 


1916 
1917 


1919 : 


1912 
i?1ñ 
1211 
L21F 
1929 


71923 
1925 


1927 
1927 


OBJECT 


324420 
210920 


202719 
РЕЗЕ 
CZF*18 
3Е20 
С0271? 


0203 
E602 
CAFSIS 
CDi21& 
77 


ri 
FEZO 
CA1119 
B7 
CANBIS 
210520 
с? 


ЕЗ 


LINE 


4059 
4058 
4061 
$052 
4063 
306% 
4055 
4045 
4057 


4020 
4091 
4092 
4093 
4094 
4095 
4035 
4097 
5099 
4099 
4100 
4101 
4102 
4103 
$104 
4105 
4105 
4107 
4103 
4109 


TAS OPCD OPRNDS 


ТЕВМІ: EQU 5 


READ А LIME FROM THE TTY 


11:43:53 1$ APR 1975 PE 124 


COMMENTS 


FIRST PROMPT WITH THE CHAR IM ТНЕ А REG 


і 

è TERMINATE THE LINE WITH A 
; IGNORE EMPTY LINES 

; CONTROL C WILL CANCEL THE 
» CONTROL 0 WILL TOGGLE THE 
š 


RUBDUT WILL DELETE THE LAS 


PROMP 
REIN: LXI H, IOGUF 
MVI M09 
INX H 
ТАРЄЗ 


JC TREAD 
‚ PROMP 
CALL TESTO 
per 77” 
TREAD 
MUI а," 7 
CALL TESTS 
TREAD: ЕС; з 
ІМ TTY+L 
ANI 2 
ЈЕ TREAD 
CALL GETCH 
м, А 
СРІ 10 
JZ TREAD 
CPI 13 
NOTCR 
ТАРЕЗ 


CRLF 
м, о 

ILSW 
ова в 


CR1: MVI 


TESTO: 


3 TEST IF LOAD 


хоо? 


LINE 
OUTPUT SWITCH 
T CHAR INPUT 


? BAVE THE PROMPT (CHAR 
; POINT TO INPUT SUFFER 
i MARK BEGIN 

POINT START 

СЕТ PT ЗИ 

TEST IF LOAD 

i БАТЕ IS 

ЕТ THE PROMPT AGAIN 
WRITE TO TERMINAL 

; TEST IF әм 

; BRIF NOT 

ЗЕТ SPACE 

; HRITE TO TERMIMAL 


"GET TTY STATUS 


i TEST IF RXROY . 

i LOOP TILL CHAR 
iGO READ THE CHAR 
; PUT IN BUFFER 

; TEST. IF LINE FEED 
i IGNORE IF IT 15 

; TEST IF CR 

i BRIF NOT 

¿GET РТ 34 


i САЛЬЕ IF NOT 

; МААК END 

БЕТ INPUT LINE SW 

> TEST IT 

;RETURN IF ON 

; POINT PRIOR 

;LOAD IT 

; TEST IF SPACE 

i BRIF SPACE 

i TEŞT IF AT BEGINNING 
; BRIF IS (NULL LINE) 
i POINT BEGIN 

;ELSE, RETURN 


; SAVE CHAR 





ТМЗАТ 2030 SK BARIT VER=1. 2 


вије 


1223 
192А 
1928 
5786 
ЭПР 
i931 


1932 2 


1724 


1237 : 


193? 
1932 
1938 
194} 

19%% 


1945 : 


1948 
_ 194$ 
1298 
194Е 
1951 
1954 
1957 
1959 
195С 
pese 
1950 
4943 
1964 
1965 
1955 
1969 
1958 
1758 
1) per 


1972 . 


1774 
1977 
1974 
1970 
1975 
1281 
1782 
1223 
1935 


ОВ:ЈЕСТ 


87 


САЗЕ 9 


SESC 
С02712 


CD271? 


>> . 


СЗРЗАЗ 


LINE 


$110 
$111 
4112 
5113 
4114 
4115 
$116 
$117 
4113 
4112 
3120 


ТАЗ 


TOUTI1: 


4121 


4122 
4123 
4124 
4123 
4126 
4127 
4123 
4129 
4130 
4121 
4122 
4133 
4134 
4135 
4125 
4137 
4128 
4129 
4140 
$141 

4142 
4143 
4144 
4145 
4146 
3147 
4143 
4149 
4150 
4151 

4152 
4153 


NOTCR: 


NOTCO: 


взсне: 


ATBES: 


NOTES: 


NOTC: 
ECHO - 


GPRNUS 
TTYL 


TOUTI1 
su 
ТЕТ 


А, 13 
TESTO 
А, 10 
TESTO 
А, 255 
ТЕЗТО 
TESTO 
a 

COLUM 


11:50:23 15 SPR 1974 Pace 125 


СОММЕМТЗ 


; ET STATUS 

; TEST IF TXRDY 

‚ „ООР TILL READY 
: СЕТ CHAR | 
WRITE ІТ 

? RETURN 

: DET CR 

¿WRITE IT 


GLF 


i ЫАТТЕ IT 

BET RUBOUT CHAR 

i WRITE IT 

; AGAIN 

¿GET А ZERO 

i RESET COLUMN POINTER 
; RETURN 

; TEST IF CONTROL-U 

i BRIF NOT 

;GO PRINT “J 

? GET CR/LF 

00 RE-ENTER 

TEST IF RUDGOUT ç 
i BRIF МОТ 

i СЕТ PAPER ТАРЕ SW 

: TEST IF LOAD 

; IGNORE IF LOAD 

; POINT PRIOR 

: LOAD PREV CHAR 

; TEST IF BEGIN 

i BRIF IS 

з SACKSLASH 

; WRITE IT 

LOAD THE CHAR 

WRITE IT 

; BACKSLASH | 
¿WRITE IT ы 
; GO READ NEXT 

РІЗЕТ PAPER ТАРЕ SW 

; TEST IF LOAD MODE 
;MOEGHO IF IS 

ELSE, LOAD THE CHAR 
; ECHO THE CHARACTER 

; POINT NEXT POSIT 

i LOOP FOR NEXT 


[МСАТ 9090 ЗК BASIC VER=1. З 11: 52: 48 15 APR 1?75 PAGE 125 
ALUR OBJECT LINE ТАЗ OPCD OPRNDS COMMENTS 
1989 41** TERMO: EQU Є 
$156 ; 
4157 ; TTY PRINT ROUTINE 
419593 i | 
4159 ; OUTPUT STRING ОҒ CHARS STARTING АТ IOBIJOO THRU END (FF DR F 
4150 ; FOLLOWING IMBEDDED CHARACTERS ARE INTERPRETED AS CONTROLS: 
4161 ; X^00^ END OF BUFFER, ТҮРЕ CR/LF AND RETURN 
4162 ; Х-ЕЕ” END OF BUFFER, RETURN (МО САЛЕ) 
4153 ; X'FD^ TYPE CR/LF, CONTINUE Е 
415% ; : 
4155 ; RETURN WITHOUT OUTPUT IF OUTPUT SW IS OFF 
4166 ; 
4167 ; 
1989 2А#321 4143 LOA OUTSW ; GET CUTPUT ЗИ 
1980 87 | 4152 ORA. а ; TEST IT 
1983 со 4170 RNZ ; RETURN IF NO PRINT 
[9ВЕ 210520 4171 LXI Н, ТОВУЕ СЕТ ADDR OF BUFFER 
1991 7Е 4172 OT1: MOV A.M ;LOAD А BYTE 
1292 ЕЕРЕ 4173 СР: 254 ; ЗЕЕ IF END OF LINE (NO CR/LF) 
1924 са 4174 RZ ; RETURN IF EQUAL 
1995 FEFD 4175 cet 253 ‚ЗЕЕ IF IMEEDDED CR/LF 
1997 ZZ2AO019 4174 JNZ отг ; BRIF NOT 
199A 20371? 4177 CALL CRLF ;LINE FEED 
Qeon СЗА1? 4172 JMP 4 ; CONTINUE 
1900 27 417? oT2 ORA А TEST IF END OF ОЏТРШТ 
1241 СА2219 4130 ЈЕ Cher ; BRIF ІЗ 
[904 ТЕ 31231 MOV ALM ; LOAD THE BYTE 
1945 202719 4132 CALL TESTO ТҮРЕ IT 
рова 366821 4152 ыра COLUM „БЕТ COLUMN POINTER 
12АВ 22 4134 INR A ; ADD ONE 
1980 3225821 +135 STA COLUM ; RESTORE IT 
i?hF 23 4136 074: INX MH iPOINT NEXT 
19BO C29119 41537 JMP OTL ; LOOP 
191 3133 TERMM: EQU от: 








> 











IMSAI 3020 ЗК EASIC УЕРті 3 11:54:00 15 APR 1275 PAGE 127 


АК 


1383 


a 


IMSAI 2080 SK 


ABLA 


1200 


OBJECT 


SA SZ 
97 . 
со 
зав821 
ҒЕЗЗ 
seas re фе 
47 
AF 
RS 
САС?1%9 
D2CE12 
C40E 
вес, рук) Қ 
32652 
20. 
47 
ЗЕ20 
С0271? 
05 
ез š 
230313 


OBJECT 


CSOSA 
0500 
Еьзо 


LINE TAG OPCD OPRNOS COMMENTS 

4:20 TABST. ЕСІ з та | 7 
$171 i | | : 
4122 ; я 
4193 ; POSITION TTY АТ NEXT TAB STOP 

4124 ; 

4195 ; А 

4125 ша дуитзы : ФЕТ OUTPUT SWITCH 
8197 ORA A ; TEST IT 

$128 ЯМІ ; RETURN ІР SUPPRESSED 
412% сре COLUM GET COLUMN POINTER 
4209 CPI 54 ; COMPARE TO 55 

4201 МС CRLF ; ERIF мо ROOM LEFT 
202 MOV В, А i SAVE ІТ 

4203 ХАРА А SINIT POSITION 

4204 ТВІР: CMF В ; COMPARE 

4205 «1 TBLPZ 

4205 JNC TEOM : BRIF SHY ОЕ TAB 
4207 TBLP2: ADI 14 ; POINT NEXT STOP 

4208 УМР ТВІР i WOOP 

4209 TEON: STA COLUM ; UPDATE CTR 

4210 SUB B COMPUTE NUMBER OF SPACES 
4211 мо“ ње ? SAVE IT : 

4212 TBSPA: MVI а," * ; SPACE TO REG А 
4213 CALL TESTO i OUTPUT ІТ 

4214 DCR в i SUB 1 FROM CTR 
4215 RZ + RETURN IF ZERO 
4215 JMP TESPA ELSE, LOOP 

BASIC VER-1.3 11:55:06 15 APR 1274 PAGE 123 

LINE TAG ОРС ОРАМОЗ COMMENTS 

4213 LINEO: EQU $ 

4219 ; 

4220 ; УМРАСК LINE NUMBER FROM (HL) TO (DE) 

4221 ; ZERO SUPPRESS LEADING ZEROS 

4222 ; 

4222 1 

4224 PUSH 3 ‚ЗАМЕ В, С 

4225 MVI 8,1 ; SET SWITCH 

4225 CALL LOGOUT iGO FORMAT 2 BYTES 

4227 CALL. LOUT ; THEM TH& NEXT 2 

4223 POP В i RESTORE B, C 

4222 ВЕТ ; RETURN 

4230 ; 

4231 LORT: ЕО) 8 

4232 MOV а.м ;GET BYTE 

4232 ANI 246 i ISOLATE LEFT HALF 

4224 RAR i SHIFT RIGHT 1 БІТ 

422% RAR ; AGAIN : 

42245 ААВ AGAIN ` 

4237 RAR : LAST TIME 

4253 JNZ NOTZ1 i RRIF NOT ZERO 

4239 ORA В : MERGE ІМ B 

4240 JNZ 14 ; BRIF ZERO 

4241 NOTZi: MVI 8,90 i RESET SWITCH 

4232 ORI 48 ; ; LONE 

4243 STAX n ¿PUT TG BUFFER 

42 INX 0 ; POINT NEXT 

4245 Zi: МОУ ақ i LOAD BYTE 

4245 АМТ 1Š . ; мазк 

4247 JNZ NOTZ2 i BRIF NOT ZERO 

3243 ORA 8 ; MERGE SWITCH 

424? М2 22 ;BRIF ZERO 

4250 MOTZ2: MVI 8,0 i SET SWITCH OFF 

4251 ORI 43 ; ZONE 

4252 зтах 0 ; PUT TO BUFFER 

4255 мх 0 „РОТ NEXT 

4254 I2: INX H ; ND NEXT LINE BYTE 

$2 ВЕТ ; RETURN 


IMSAI 2080 ZK BASIC VER=i. 3 


ALIDR 


КОЈЕ 


маг 3030 2K 


ALLUR 


1841 


1841 
1942 
· 1844 
1547 
1843 
ifa 


OBJECT 


C27101 
21D11E 


209119? 


СОЕСІБ 
I101 
FEOF 
CO 
с0411іА 
ЗАҒЗ21 
SEOL 


32F321. 


c? 


OBJECT 


LINE 


4237 
4253 
425? 
4260 
4261 
4262 
4253 
4254 
255 
3254 
4267 
4258 


| 426? 


$270 

4271 

3272 
4273 
4273 
427% 
5275 
4277 
4273 
4279 
4230 
4231 

4232 
4233 


4294 


BASIC УЕЯ=1. 


LINE 


423» 
4237 
$223 


4239 


4220 
4221 


TAG 


OPD 


QPRNDS 


TSTCC: EQU s 


” ww зо әз — 


GETCH: 


CONTC: 


CCRLN: 


TSTC1: 
сомто: 


ТАЗ 


4292 ` 


4273 
4294 
4295 
4276 


3 
ОРСП 


EQU 


PUSH 
MVI 
CALL. 
POP 
ADI 
МР 


TTY+1 
2 


TTY 

127 

3 

TSTC1 
PRCNT 
EDSW 

a 

KEY 

Н, ЗТОРМ 


 TERMM 


PRLIN 
KEY 
15 


РЯСМТ 
OUTSW 


i 
питзи. 


ЭРАМО$ 


$ 


PRINTS ^ AND CHAR 


PSH 
А, a. 
TESTO 
Р5Ы 
54 
тезта 


11:25:42 15 APR 1275 PASE 172 


COMMENTS 


TEST IF KEY WAS PRESSED DURING EXECUTION 
CANCEL IF CONTROL 


TOGGLE OUTPUT SUPPRESS SW IF CONTROL} 


; ВЕТ ТТУ STATUS 

; MASK FOR RXRDY 
¿RETURN IF NO CHAR 
,READ THE CHAR 

i TURN OFF PARITY 

i TEST IF CONTROL С 
; BRIF NOT 

; DO PRINT ^C 

i SET MODE SW 

»TEST IT 

; BRIF CMMO MODE 
POINT MSG 

;GO PRINT IT 

;GQ PRINT LINE 

;GO TO READY 

;TEST IF CONTROL 3 
; RETURN IF NOT T 
; GO PRINT 70 

i СЕТ OUTPUT SWITCH 
; TOGGLE 

PUT зи < 
; RETURN 


11:58:33 1% АРА 1?75 PAGE 130 


COMMENTS 


i ЗАМЕ CHAR 

i СЕТ ЫР ARROW 
; WRITE IT 

; GET CHAR 

; TRNSLATE 

i WRITE IT 











1. 23:56 13 APR 1275 PAGE 131 


“Фф 
re 
á 
г 
o 
о 
> 
% 
2 
с) 
A 
9 
P 
у, 
=ч 
€ 
< 
m 
u 
>> 
о 
= 


p ALUR OBJECT LINE ГАО ӘРСО OPRNDS COMMENTS 
% 1840 4299 СОМР2: Еру з 
қ 4299; 
4309 ; CONTINUATION СЕ COMPARE (RST 2) ROUTINE 
3301 ; 
1440 87 4302 ова А ; TEST IT 
іһаЕ С25518 4303 JNZ COMPS ; SRIF NOT Емо 
LASL AF 4304 СОМР2: XRA А ‚ЗЕТ EQUAL STATUS 
1852 7Е 4205 COMPS: МОУ ALM ; GET LAST CHAR 
1852 Cl 4305 POP В ; RESTORE B.C 
1а54 С? 4307 РЕТ Ё‚ RETURN | 
1655 РЕ 4308 COMPS: СМР М ; COMPARE THE TWO CHARS 
1254 CA621^ 4309 JZ COMPS ; BRIF EGUAL 
1059 78 4310 MOV А,В ; GET COUNT 
LASA FEOS 4311 CPI 3 ; TEST IF >= 3 
IASC 02511А 4312 JNC COMPS ; BRIF NOT LESS THAN 3 
` 1A*F С3522А 4313 JMP COMPS ; BRIF LESS THAN 3 AND NOT сосуд 
: 1962 94 4214 COUMPA: INR 2 : COUNT IT | 
1663 13 4215 INX 0 ¿POINT NEXT LIT 
| е 1564 23 4316 INX H ; POINT NEXT VAR 
1855 С31209 217 «МР — COMP1 ; CONTINUE 


IMSAL 3090 2K BASIC VER=1. 3 12:00:15 15 GPR 1275 PAGE 122 








виа OBJECT LINE TAG OPED ОРАМОЗ COMMENTS 
1863 4317 EOL: ` EQU 3 і 
$320 ; | \ - 
e 5321 ; TESTS IF (HL) IS ЕМО OF LINE 
4322 ; ERROR-DL IF МОТ 
4323 i | 
1453 CF | 4324 RST 1 i SKIP TO NON-SLANK 
1A^9 CD311A 4225 CALL TSTEL i TEST IF ЕМО LINE 
iASC С2А0! 2 45212 NZ СМЕЋЕ ; ERROR IF NOT 
LASF FEZ 4327 РЕ" ; ТЕЗТ IF PDP11 MULTI STMT 
1471 СА7ЭЇіА 4529 42 ZOLO i BRIF ІЗ 
1474 FESC 4329 GNI SNT ; TEST iF MULTIPLE STMT 
1847» C27C1A 4330 JNZ ЕО. ; BRIF NOT 
187? 328521 4231 ЕСО: STA МТТ ; TURN ON SWITCH 
AZC 23 4332 БОК: INX H ; POINT NEXT 
1970 226321 4333 SHLD ENDLI ; ЗАМЕ POINTER 
1050 C? 4334 RET ; RETURN 





IMSAI 3030 ЗК BASIC VER=1. З 12:01:05 1% APR 1275 PAGE 133 - 


anne OBJECT ^ LINE TAG ОРСО ОРЕМОЗ COMMENTS ode 
: j / 

1481 . 4325 TSTEL: EQU з | | ( 

4229 ; TEST (HL) FOR END OF STMT (ООН, 717, 27, OR N7) 

4529 ; RETURN WITH Z ЗЕТ IF ІЗ | 

с сер ова А | | TEST FOR ZERO 

4341 7521 Р СЕ 
tasa cd е 81. ; ; RETURN IF IS 
1883 FEZA 4343 CPI “:°“ ; TEST FOR MULTI STMT 
1085 СЗ 4344 За ¿RETURN IF IS 
1885 FESC: 4545 СГ ел". ; ЗАМЕ 
1283 c3 4246 RI ; RETURN IF IS 
1489 FE21 4247 CPI ^'^ ; TEST FOR CMMENT 
LABB с? . 4248 RET | ; RETURN 


IMSAI 8080 SK BASIC VER-!. З 13:01:23 15 АРА 1275 PAGE 134 


'AUDR OBJECT LINE TAG ОРСО OPRNDS 


COMMENTS 

АБС 4350 NOTEO: EQU 5 

351 i 

4352 ; | 

4353 ; TEST IF (НАС) IS ЕМО OF LINE - 

4344 р RETURN IF NOT, ЕБКОК-ОЦ IF IS | - 

os Ж >) 
јрас CF Lo 4354 NST. 1 i SKIP ТО NON-SLANK ; р 
1680 срз1ја 357 CALL. TSTEL ; TEST IF ЄМО OF LINE ( 
1970 CAROLA 4358 JZ SNERR ; ERROR IF IS 
1893 С? 4359 RET . 


i ЕМСЕ, RETURN 








 IMSAI 3030 SK BASIC VERS. 3 12:01:40 15 APR 1276 PAGE 13% 





ADDK OBJECT LINE TAG PCD OFRNDS COMMENTS 
1494 014655 3251 ULERR: LXI PB, Пд.“ ;UNDEFINED LINE НУМВЕА 
раят DF $352 ast 3 
1898 OLS64F 433 OVERR: LXI В, OV ; OVERFLOW/UNDERFLOW/ SARI =X) 
(Аун OF 4364 RST 3 
IAC 015453 9365 STERR: LXI В, 5T ; ERROR IN EXPRESSION STACK 
LASF DF 436» RST 3 : 
ЈРАО 014653 4257 SNERR: LXI В, "5м ; DELIMITER ERROR 
` 1643 DF 4368 RST 3 
1644 015452 ` 435? RTERR: LXI В, RT“ i RETURN % NQ 6032 
іАА7 DF 427 RST 3 | 
јава 014144 | 4271 DAERR: LXI 2, “DAY : UT OF DATA 
іран DF 4272 RST 3 | 
г інаб 01584Е „4373 NXERR: LXI В. “NX? ¿FOR & NO NEXT / NEXT « мо FOR 
1ААЕ DF 4374 АБТ 2 | | 
јако 015643 4375 СМЕХА: LXI В, "СМ" ; CONVERSION ERROR 
LABS DF 4326“ RST 2 U . 


A 


Мас 5080 SK BASIC VER=1. З 12:03:34 15 APR 127; PAGE 135 





ALIR OBJECT LINE таб OPCD OPRNDS CÜMMENTS 
: јака 4373 HDRTL: EQU з 
= | 5372; - { 
$330 ; 
4331 » PUNCH HEADER OR TRAILER ОМ PAPER ТАРЕ 
4332 ; і 
4333 ; | 
LABS 0619 | 4334 MVI 8,25 ;LOOP COUNT . 
| ана ЗЕРЕ 235 HDR1: MVI аА, 255 ; GET RUB OUT CHAR 
: 1482 CD271? 4324 CALL TEST WRITE IT 
(АЯ? os 237 DCR в ` :DECR LOOP СТВ 
law: СО 4333 RZ i RETURN IF ZERO 


LAED СЗВе:А | 4389 JMP HORI ;ELSE, LOOP 








IMSA1 2080 ОК BASIC VER=1. 3 12:04:17 15 АРВ 1276 PASE | 


37 
ALOR OBJECT LINE ТАЗ ОРСО ФРАМОЗ ` COMMENTS e) 
LACO 4391 PACK: ЕО) s > ( 
4322 ; 
4393 ; PACK LINE NUMBER FROM (H,L) TO В, с 
4375 ; 
. 4395 ; - 
16CO 010000 437% LII $9 i CLEAR B AND с 
LACS 3E04 4397 "VI A4 ; INIT DIGIT COUNTER - 
- {ACS 332421 4578 STA PRSW. ; SAVE А 
1АСЗ 7E ° 39? PKI: MOV ALM (GET CHAR 
(АС? 603518 4400 САЩ. NUMER | ; TEST FOR NUMERIC 
АСС со 4401 RNZ ¿RETURN ДЕ NOT NUMERIC 
АРСО ESOF 4402 ANI 15 i STRIP OFF ZONE 
4 (ВСЕ 57 4403. мом ва : ; SAVE IT г 
я ЗА ЗАР<21 4404 ША РАЗЫ ; GET COUNT 
` 1903 3D 4405 : DCR 4 ; SUBTRACT ONE 
1404 FARAOIA 4404 JM  ЗМЕВЯ i BRIF ERROR 
1607 322421 4407 STA РАЗН ; SAVE CTR 
IALA 1Е04 4403 MVI Е, 4 ; 4 BIT SHIFT LOOP 
іб: 79 4409 PK3: MOV а, с ‚СЕТ LOW BYTE me 
LAUD 17 міо ы ; ВОТАТЕ LEFT | BIT 
Ария 47 4411 MOV С.А ; REPLACE 
LALF 73 4412 MOV А, В | ? БЕТ HIGH BYTE 
АЕО 17 ` 4413 RAL ; ROTATE LEFT 1 BIT 
ABEL 47 4414 MOV BA ; REPLACE | 
1662 10 4415 OCR Е i DECR CTR 
1AE3 С20С1А 4416 ЗМІ PK i LOOP 
LAES 79 4417 MOV ALC i GET LOW 
A27 82 4413 GRA D i PUT DIGIT IN RIGHT HALF OF BYTE 
{AES 4F 4412 MOV С.А | i REPLACE 
ЈАКУ T2 яз сен ; POINT NEXT BYTE 
ШАБА СЗСЗ1А ғ ва ; LOOP 
3 ІМЄДІ 8080 3K BASIC уєдчі. З 12:05:22 15 АРВ 1975 РАСЕ 123 ( 
= ADUR ОЗУЕСТ LINE TAG ` ОРСП OPRNDS COMMENTS д 
iseD 4423 SQUIS: EQU + 
4424 ; 
- 4425 ; COMPRESSES THE EXPR STACK 
4525 : REG A CONTAINS NUMBER OF BYTES TO REMOVE STARTING АТ (H,L+I1 
4427 ; CONTAINS TOTAL NUBER OF CHARACTERS IN STACK THUS FAR 
4523; = қ 
1АЕ3 ES 4429 PUSH H i SAVE H, L 
{AEE SF 4430. | MOV ELA ; COUNT TO E 
LAEF 1600 4431 - MVI DO i ZERO HI BYTE 
LAFL 1? 4432 Dan D ; COMPUTE ЗТААТ 
LAE? ЕЗ 4432 XCHG ; PUT ТО 9, E 
IAF? Е: 4434 POP H i GET H, L 
1274 ЈЕ 4435 сма ; COMPLEMENT COUNT | 
185% 2С 4435 INR А ; THEN 27$ COMPLEMENT 
інв» ЗО 4437 AOD в - i COMPUTE В-А 
ЛАКУ 47 4438 MOV в,а ; PUT TO в 
(623 13 . 4439 SQUI2: INX р ; POINT NEXT SEND a 
R LAF? 23 4440 | INX H з ; POINT NEXT RECEIVE 
ТАРА ЗА 4441. крах D i SET А CHAR 
1АЕЗ 77 4442 POV ма ¿PUT IT DOWN 
іАЕС os _ 4443 DCR в ; DECR CTR 
- 1АРО C2F310 4444 JNZ 58012 ; LOOP 
. {BOO 224620. 4445 SHLD EXPRS ; UPDATE NEW START OF EXPR 
1802 C? 4445 ВЕТ ; RETURN 





(мај 3030 Ок BASIC VER=t. 3 12: 03:10 15 APR 1276 POSE 139 





AUR OBJECT LINE TAG PCD OPRNDS COMMENTS 
івоз 4443 SKP2Z: EGU s 
4442 ; 
4450 ; FIND END OF LITERAL IN (DE) 
4451 ; 
(204 ТА 4452 (дах D ‚СЕТ BYTE OF LIT 
LEOS B7 4453 ÜRA А ;TEST IT 
1ROA сз 4453 RZ «GV RETURN IF ZERO (END). 
1807 13 55 INX D ;ELSE, POINT NEXT 
1808 C3O41B | 4455 ^  JMP KPIZ ` ; LOOP 4 
IMSAI 2090 SK BASIC VER=1. Э 12: 08:43 15 APR 1275 PAGE 140 
` ADDR OBJECT LINE TAG OPED OPRNDS || COMMENTS 
LROB 4453 GTEMP- EQU 3 
$459 ; ~“ 
4450 : GETS FOUR BYTE TEMPORARY STORAGE AREA, 
x 4451 ; STORES THE FACT THERE, mos > 
- 4452 ; PUTS ADDR OF AREA IN EXPR STACK (HL) 
4453 : . š - : 
ы {BOB кв 4464 хсно ; SAVE H,L. [N D, E 
( {EOC ЕЗ 4465 XTHL ‚ EXCHANGE O AND RET ADDR 
3 1800 ES 4465 PUSH M : PUT NEW RET ADDR 
1BOE ЕЗ 4457 PUSH H ;DOIT IT AGAIN 
(ВОЕ 210000 ^ 4463 LXI но ; ZERO H,L 
ініл ЗЭ 444? DAD sP ;GET ФР ADDR IN HL 
1813 23 _ 4470. INX H ; PLUS ONE : 
1814 23 ` 3471 INX H ;PLUS ONE MORE (POINT TO МЕН ARE 
1815 CS _ 4472 .  PUSM в ; SAVE CTRS 
1815 05 4473 PUSH D ; SAVE EXPR ADDR 
1217 ES 4474 PUSH H ; SAVE TEMP ADOR 
1818 F7 4475 — RST ó ; 60 STORE FACC . 
1B19 Di 4475 POP D ;RESTORE TEMP ADDR 
IRIA 245223 4477 LHLD SPCTR ; GET COUNT 
IRID 22 4473 INX H ; PLUS ОМЕ 
івіє 22 4472 INX H ; ONE MORE 
(АЕ 225921 4430 SHLD SPCTR ;PUT BACK 
1822 21 4481 PDP H ;RESTORE EXPR ADOR š 
123 C1 4432 РОР в ;RESTORE CTRS 
14H24 23 | | 4483 SADR: INX H ; POINT NEXT BYTE 
1825 72 4434 POV MD ;MIGM BYTE ТО EXPRSTK 
1825 23 4485 INX M ;POINT NEXT 
(1827 73 4435 MOV ЊЕ ;LOW BYTE TO EXPR STK 
1528 23 4487 INX H ;POINT NEXT 
1829 35ЕЗ 4483 MUI M 227 ;CODE = NUMERIC DATA 


LEAR С? 448? КЕТ i RETURR 








(мзаг $030 ОК 


АШОК QDJECT 


|. RIC 


1BZC 7E 
1R2U РЕЗ] 
ін2Е OS 

j #20 FESA 

- 4832 СОЗВІВ 


BASIC VER=1. 3 


СІМЕ 


4491 
4492 
4493 
4494 
4495 
4495 
4497 
4493 
4499 
4500 
4501 
4502 


ТАЗ 


ALPHA: EQU 


TESTS THE CHAR АТ (H, L) 


ОРСО ОРЕМОЗ 


12:12:04 15 APR 127; Pace 141 


COMMENTS 


( 


RETURNS WITH 7 SET IF CHAR ІЗ ALPHA (А-7) 


; 
; RETURNS WITH Z OFF IF NOT ALPHA 
: CHAR IS LEFT IN REG А 

i 


мом 
СРІ 
RC 

CPI 


SMP 


IMSAI 3080 2K BASIC VER@1. 3 


Arus OBJECT 
1833 


4833 7E 
183» РЕЗО 
AF28 ра 
1239 FES? 
 1B38 СЗ 
1езс DO 
(ЕЗІ BF 
1ЕЗЕ C? 


LINE 
4504 


3505 ; 
4505 ; 
4507 i 


4503 


4509 ; 


4510 
4511 
4512 
4513 
3515 
4515 
4515 
4517 


4518. 


TAG 


мом 
СРІ 
RC 
СРІ 
NUMEN: RZ 
. RNC 
СМР 
АЕТ 


RR M. 
“2° 


777 
NUMEN 


DPED OPRNDS 


а, м 
ер” 


“ge 


; RETURNS WITH Z SET IF NUMERIC (0-9). 
; ELSE Z IS OFF 

; CHAR IS LEFT IN THE ñ REG 
> М 


PUT CHAR TG REG А 

; TEST IF ñ OR HIGHER 

; RETURM IF МОТ ALPHA (2 ІЗ OFF) 
; TEST IF 2 OR LESS 

i 50 WRAPUP 


12:12:52 15 APR 1276. PAGE 142 


COMMENTS 


7 
; GET CHAR TO REG А ( 
; TEST ТЕ ZERO ОЯ GREATER 

i RZTURN IF LESS THAN ZERD 

TEST IF ? GR LESS 

; RETURN IF > 

; RETURN ТЕ NOT NUMERIC 

; SET Z 

; RETURN 





сю в. ] 
85273 





IMSAI 2080 ©К BASIC VER=1. 3 


AT DR 


ТЕЗЕ 


iBSF 
1830 
1643 
1244 
1Е87 
інса 
1558 
1 HY: 
1К4# 
1850 
1851 


. 4832 


1233 
1253 
1855 


1855 7 


1857 
івза 
iBSB 
LESC 
1850 
ipse 
(ра 
1#52 
LRA 
1844 
1567 
18453 
јЕ6> 


| дева 


1528 
ікс 
1550 
1H70 


` HT! 


1872 
1873 
1874 
1875 
LE75 
ін7? 
LR7B 
ік7С 
1870 
„КОЕ 
Дар 





OBJECT 


ES 
247021 
87 
C2PALB 
2АҒЭ21 
7Е 
#7 
СА7О1В 


LINE 


4520 
3521 


4522 ; 


4523 


4524 ; 


4525 
4526 
4527 
4323 
452? 
4530 
3531 
4552 
4533 
4534 
4533 
453: 
4527 
4333 
4539 
4540 
5541 
4142 
4533 
4544 
4545 
4545 
4547 
4543 
455? 
$550 
4551 
552 
4553 
4554 
4555 
4556 
4557 


45353 : 


4552 
4550 
4551 

4552 
4563 
4564 
4563 
4556 
4557 
4568 
$565? 
$570 


ТАЗ ОРСО OPRNDS 
ЗЕВАС: EAU з 


; SEARCHES FOR THE VARIABLE 
; RETURNS WITH ADDR OF DATA 


PUSH H 

LOS ЕММПО 

ORA A 

NZ SECHS 
SCHO:  LHLD DATAB 

ORA А 

42 SCHS 

DCX MH 

DCX H 

MOV B.M 

DCX H 

MOV см 

RST 7 

08 3 E 

мом ALM 

СМР р 

МІ Зона 

DCX H; 

MOV M 

INX H E я 
3 СМР Е 

ANZ SCH2 

мом AD 

ORA A 

JM SCH? 

DAD в 

INX H 

XCHG 

POP H 

RET 


12:13:41 15 APR 1975 PAGE 143 


IN D, £ 
AREA FOR VARIABLE 


; SAVE H, G 

‚СЕТ FUNCTION MODE 
; TEST ІТ 

i BRIF IN А FUNCTION 
; GET ADDR OF DATA 2005. 
i WET THE ЗУТЕ 

; TEST IF ЄМО 

; BRIF END 

; POINT NEXT 

; DITTO 

; GET HI LEN 

; POINT NEXT 

i GET LO. LEN 

i ADJUST F, Ú 


i LOAD LST CHAR 

i СОМРААЕ 137 CHAR 
i GRIF NOT EQUAL 
iPOINT NEXT 


i LOAD 2ND DIGIT 


i POINT РАСК 

i COMPARE 2ND SHAR 
i DRIF NOT EQUAL 
GET HI NAME 
¿TEST IT 

; RETURM IF MATRIX 
i POINT NEXT ENTRY 
i PLUS ONE 
;FLIP/FLOP 

; RESTORE H 

; RETURN 

; MINUS LEN 

; LOOP 

¿PUT LST CHAR 

; POINT NEXT 

; PUT 2ND CHAR 

; POINT NEXT 

; GET HI NAME 
;TEST IT 

; BRIF ARRAY 

¿HI LEN 

: POINT NEXT 

¿ET LO NAME 

; TEST ТУРЕ 

; BRIF CHAR 

iLO LEN 


- 
› 


IMSAI 2080 2K BASIC VER=1. 3 


@ 
& 


12: 13:22 15 APR 1975 PASE 144 





POGR OBJECT LINE TAG ОРСО OPRNDS COMMENTS 
1883 0404 4571 MVI 8,4 ;LOOP ста 
1F2% COSCiB 4472 - JMP  SCHS ; BRARND 
1ES3 ЗБЕВ 4573 SCH4: МТ м, 251 ; UO LEN 
{RSA 0501 4574 MVI 8,1 ;LOOP СТА 
LESC 2D 4575 SCHS: DCX H ; POINT NEXT 
180 3400 4575 MI MO ; ZERO THE VALUE 
|ЕЗЕ 05 4577 DCR 8 ; DECR СТА 
1590 СОЗСІВ 4573 JNZ  SCHS i LOOP 
1692 2B 4579 [CX H i POINT NEXT 
1E94 3600 4530 MVI мо : МААК NEW END 
ines 23 4=31 INX H ; POINT ADDR OF VARIABLE 
1:97 ЕВ 3522 XCHG ; PUT LOCATION TO 0, Е 
1593 Ei 4533 POP H ; RESTORE H, L 
1899 С? 45234. RET ; RETURN 
1596 215C21 4525 зсне: LXI H,FNARG ; POINT DUMMY ARG 
1228 7E 4524 MOV A.M ¿LOAD 1ST CHAR 
LESE BA 4537 СМР D ; COMPARE 
IBF C24718 4583 JNZ SCHO ; BRIF NOT EQUAL 
1BA2 23 453? INX H ; POINT NEXT 
|ваз 7E 4520 MOV AM LOAD 2ND CHAR 
LEAG ВВ 4591 CMP Е ; СОМРАВЕ 
(РАЗ C2471B 4597 JNZ SCHO : BRIF NOT EQUAL. 
LEAS 23 ` 4593 INX H ; POINT NEXT 
іва? 5 4534 мом DM ;GET HI ADDR 
(ева 22 4594 INX H ; POINT NEXT 
јкав = 4524 MOV ELM ; GET LO ADDR 
(РАС EI 3427 PDP H ; КЕЗТОВЕ H, L à 
вар C? 4523 RET ; RETURN | wo 
1НАЕ ЕЗ. 4529 5СН7: PUSH H ` - 3 SAVE ADDRESS” я - МИР 
1ВАЕ 24FE 4500 MI М, 254 i MOVE HI DIS? . 
LEBT 28 4501 DCX H ; POINT NEXT 3 ( 
LERZ 2514 4602 MVI м, 20 ; MOVE LO DISP | 
1884 28 4503 сх H 
IRBS 3500 4504 MVI MO ; MOVE A 2280 
1887 28 450% DCX H ; POINT NEXT 
1883 3504 4605 MVI M 19 ; MOVE 10 
158A 23 4607 DCX H ; POINT NEXT 
1808 3500 4603 MVI M0 ; МОЧЕ A ZERO 
(вип 23 4509 DCX H ; POINT NEXT 
IKBE 3504 4510 MVI M 10 ; MOVE А 10 (DEFAULT IS 10 X 10) 
LECO 015501 4611 LXI В, 485 ; TOTAL NUMBER OF BYTES TAKEN ЗУ 
103 28 4512 SCH8: DCX H ; POINT NEXT 
1804 3500 4513 MVI мо ;CLEAR ONE BYTE 
1205 OB 4614 DCX B ; OCR CTR 
1ЕС? 73 4515 MOV A8 ; GET НІ 
1ЕСЗ Bi ` 4614 ORA C ; PLUS LO 
1859 С2СЗІВ 4417 JNZ  SCH3 ; LOOP 
18СС Е! 4513 POP H ; RESTORE PTR TO START 
1BCD 23 4612 INX H ; POINT LO МАМЕ 
|БСЕ 23 4520 INX H ; POINT HI МАМЕ 
(ВСЕ СІ 4621 SCH9- POP B i NEED TO EXCHANGE LAST TWO ENTRI. 
12:22:05 15 АРВ 1974 PAGE 145 
IMSAI 2080 2K BASIC УЕА=\. З 
: e COMMENTS 
ADDR OBJECT | LINE TAG OPCD OPRNDS 
;SO DOIT 
\впо 01 3622 зл. 
ikut C3 FEES PUSH D 
ікй2 05 - RET ; RETURN 
іңіз С? 4525 








' 
3 
і 


те 


IMSAI 3030 ЖК BASIC VERzi. 3 12.22: t$ 15 APR 1375 FARS 145 


ABER OBJECT LINE Те» PCD ОРЕМОЗ . — COMMENTS 
іБ 4 | 4427 УАК: ЕП) $ 
23; 
4529; н 
4520 ; TEST (Hei) FOR A VARIABLE NAME 
4421 ; PUTS THE МАМЕ IN 2,Z IF 22040 
4522 ; ERROR SN IF NONE FOUND 
$5.53 i 
1804 CF 4534 RST 1 i SKIP TO NON-BLANK 
1805 СОССІВ 3635 CALL ALPHA ; TEST IF ALPHA x 
IRUS С2АО1А 4625 ом.  3NERR | ; ВАТЕ NOT ALPHA 
LEUS 57 4637 мом DA ; FIRST CHAR 
LEDC 1Е20 4638 "t є," " ; DEFAULT 
ікиЕ 22 4537 мно. ; POINT NEXT 
LIEDE СЕ 4640 этч ; ВЕТ 2М0 CHAR 
(БЕО СОЗХІВ 4631 сащ. MUMER ; TEST IF MLMERIC 
iBE2 СОЕ?ФІВ 4542 JNZ VARZ ; SRIF NOT NUMERIC 
ikES ЗЕ 4643 МОУ ELA i SAVE 2ND CHAR 
ВЕТ 23 4544 INX H i POINT NEXT 
1ВЕЗ СЕ ` 4645 RST 4 i GET NON-BSLANK FOLLOWING 
LEES FE24 4644 VAR2: CPI “*“ ; TEST IF STRING 
(ВЕВ C2F41B 4647 JNZ VARZ ; ; BRIF NOT 
|РЕЕ 78 4648 MOV ALE ; ЗЕТ 2ND CHAR 
(КЕЕ F450 4647 ок: 123 ; БЕТ TYPE 
LEFL SF 4450 MOV EA - + SAVE IT 
1вЕ2 23 ~ 4651 INX H ;5К1Р $ 
1873 C? 4552 RET ; THEM RETURN 
{874 FE2S . 4653 VARS: CPI 767 ; TEST IF ARRAY 
IHF“ CO 4654 RNZ ; RETURN IF NOT 
ЈЕЕ7 7А ` 4554 VARS: MOV A,D GET HI NAME 
1228 F430 4556 ORI 123 ; TURN ом 07 
ikFA 57 4557 мом DA ; RESTORE 
іКЕЗ С? 4553 RET ; RETURN 
IMSAT СОО SK BASIC VER=1. З 12: 24: 04 1% APR 1275 PAGE 147 
anuR OBJECT LINE TAG ОРСО OPRNDS COMMENTS 
{ВЕС 3650 PRLIN: EQU $ 
4551 i 
4552 ; PRINTS LINE NUMBER FOLLOWED BY. CR/LF 
4553 i 
SFR 11002 4654 LXI О, LINEN ; POINT SREA 
a 287621 Маз LHLD LINE. ;GET ADDR OF LINE NUMBER 
1502 CODDI? 4666 CALL LINEO ; 60 UNPACK 
LCOS EB 4667 XCHG ;PUT TO HL 
LCOS 3500 4558 му: мо ; END OF MSG 
1008 210020 9669 LXI H, LINEN ; POINT AREA 
' CUB C3711? 4570 „ме  TERMM СО PRINT ІТ 








IMSAl 3030 SK BASIC УЄЯзі. З 


PH DR OBJECT LIME ТАЗ ӘРСО OPRNDS 


1COE ` 4672 ERROR: EQU з 

4573 ; | 

4574 ; CONTINUATION OF ERROR MSS 

3575 ; 

367^ i 
1COE 71 4577 MOV МС 
icor 23 : 4573 мх H 
1C10 36FE 4679 MVI Мм, 254 
1C12 210520 4550 ; LXI H.IOBUF 
1035 CD9119 4631 о CALL TERMM 
{C013 21EO15 4532 LXI Н, ERRMS 
ІСІН 5071143 433 CALL ТЕАММ 
ИДЕ CDFCID 4554 САД. PRLIN 
10214 C39?300 4535 «МР ВОМ 


IMSAI 3080 SK BASIC VER=1. З 
ропк OBJECT LINE TAG ОРСО ОРКМОЗ 


Се 
12: 24:40 15 APR 1975 РАЗЕ.142 


COMMENTS 


FORMATER (RST 3) 


i PUT ZND CHAR 

i POINT NEXT 

i MARK END 

; POINT 

i PRINT XX 

; POINT MSG 

; PRINT "ERROR IM LINE " 
О PRINT LINE | 

; СОТО READY 


12:25:31 15 АРВ 1275 PAGE 14? wv 
n 
COMMENTS U р J 


4&3? ; MOVE THE STRING FROM (0, Е) TO (H,L) COUNT IN В 


ісе - 4637 СОРҮО: Sau $ 
4483; 
$520 ; 
$224 ІА 4691 LOAX D 
aces 77 4522 MOV ма 
{C24 23 4693 INX H 
4627 13 4594 INX D 
1C23 05 4695 оса B 
1C29 C2241C 4596 JNZ  COPYD 
1525 o. 4697 RET 


SET A BYTE 
; MOVE IT 
POINT NEXT 


г ; OITTO 


i ВЕСА CTR 
i LOOP 
; THEN RETURN 











, ` 
? 
i \ , 
f SER % 4 





IMSAI 3030 SK BASIC VER=1. 2 ` 


апра OBJECT 
1C2D 


1C2D ER 
АСЛЕ CD241C 
1C3} ЕВ 
1632 C? 


LINE TAG 


4439 СОРУН: 
4709 i 

4701 ; MOVE 
$702 i 

4703 

4704 

4705 

4705 


ӘРСО OPRNDS 


EQU з 


TRE STRING FROM 


XCHG 
CALL CCPYD 
XCHG 
RET 


IMSAI 2080 SK BASIC VER=1. 2 


віта OBJECT 


1c23 


1233 2600 
icss 23 
1236 05 
#2637 C2331C 
кола C? 


LINE ТАЗ 


4709 /ЕКОМ: 
$709 ; 


ОРТО OPRNOS 


EQU $ 


12:25:14 15 APR 1275 PAGE 150 


COMMENTS 


(M, L) TÜ (3,8) COUNT IN 3 
;FLIP/FLOP 
#130 СОРУ 


i РЫ РУРЬОР BACK 
¿RETURN . 


12:26:35 15 APR 1975 Pace 151 
COMMENTS 


4710 ; MOVES А STRING OF BINARY ZEROS, COUNT ІМ 5 


4711 i 
9712 
4713 
4714 
4715 
4715 


MVI мо 
INX H 

OCR в 

JNZ ZERIM 
RET 


; MOVE А ZERO 

i POINT NEXT š 
; DECR CTR 

; 1052 

; RETURN 





ма: 3030 


"Юра 


СЗ» 


1638 
132 
iC SF 
1C 42 
1С95 
1C 523 
{C4A 
1С40 
iC4E 
1С50 
1651 


1032 ` 


1659 
1с58 
1059 
1с58 
1CZ8 
ICSF 
ICSF 
1с59 
ICSi 
1262 


DBEJECT 


ES 
CD4511 
FASOIC 
3A4320 
CDSSOF 
FEO? 


05 
С2521С 
Е! 

са 

АР 

Et 

сэ 


ок BASIC VER-1. 3 


LINE 


4713 

712 
$720 
$721 


4722 ; 
4773 ; 
4724 ; 


4725 
4725 

4727 
$723 
4729 
4730 
9731 

4732 
4733 
4733 
4725 
4735 
4737 
4733 
4729 
4740 
4741 

4742 
4743 
4744 
4735 
4745 


TAG 


ЕБІМ: 


ЕВТМО: 


FBINI1: 


FBIN2: 


EQU 


P'USH 
CALL 
JM 
LDA 
САЩ. 
СРТ 
JNC 
MOV 
"VI 
SUB 
MOV 
LDA 
47 
она 


RAR . 


DCR 
JNZ 
POP 
RET 
XRA 
POP: 
RET 


IMSAI 2080 SK BASIC VER=1. З 


рога 


{C42 


1053. 
1C46 
1057 
1253 
1C59 
ICAA 
1C58 
iC5E 
{CLF 


1272 


1272 
1С75 


OBJECT 


CLASIC 
C33B1C 


LINE 


TAG 


ARG: 


. 
, 


ОРСО 


EQU 


ОРС QPRNDS 


з 


H 

INT 
FBINZ 
FACC 
FEXP 
9 


FBINZ 


BA 


я, З 

В 

В. А 
РАССЗІ 
ЕВІМІ 


OPRNDS 


$ 


12: 27:97 15 APR 127: 


> 
и 
5 
f 
p 
Я 
i 


COMMENTS 


+ CONVERT FLOAT АСС TO UNSIGNED BINARY NUMBER IN А REG 
i RETURNS Ó IN А REG IF РАСССО OR Е2С2255 


: SAVE H, L. 

130 CONVERT ТО INTEGER 
; BRIF NEGATIVE 

» БЕТ EXPONENT 

; EXPAND TO 3 BITS 
; TEST FOR MAX 
;BRIF TOO BIG 

; SAVE EXPONENT 

; GET МАХ 

; MINUS COUNT 

i SAVE SHIFT COUNT 
» БЕТ MSB 

i BRIF З BITS 

; TURN ОРЕ CY 

; SHIFT 

; DECR СТА 

> LOOP 

i RESTORE H, L. 

; RETURN 

i GET А ZERO 

i RESTORE H, L. 

; RETURN 


12: 29:29 15 APR 19745 PAGE 153 


; GET NEXT ARGUMENT FROM POLISH STACK 


РОМ Ј: 


LHLD ADDRI 
их H 
мом ом 
INX H 
МОУ ELM 
INX H 
SHLD ADDR? 
DCX H 
JMP EVID 
EQU + 
CALL ARG 
ЈМР ЕЗІМ 


i GET ADDRESS 

i POINT NEXT 

; GET HI ADDRESS 

¿POINT NEXT 

; СЕТ LO ADDRESS 

¿POINT TYPE 

; GET ADDRESS 

¿POINT BACK 

; CALL. EVLOAD AND RETURN 


; СЕТ ARGUMENT | 
i THEN. CONVERT FACT TO BIN 

















IMSAX 3030 ОК BASIC VER-1. 3 12:31:15 15 APR 127% Pace 174 
AIR OBJECT LINE TAG OPED OPRNDS COMMENTS 
сте 4753 ЕМ: EQU 3 
: $75? ; 

4770 ; STMT: DEF FNX(A)sEXPR 

4771 ; 

5522 i NOTE: ENTRY FROM EXPR ANALYZER (RECURSIVE) 

4 ; : 
1678 25 4774 PUSH B ; SAVE В, С , 
іст? 05 477% PUSH 0 i SAVE 0, Е 
ісуа ES 4775 PUSH H i SAVE HL 
1078 EB 4777 XCHG | PUT HL ТО DGE 
ic7C 241620 $773 LHLD ADDRS i GET ADDR 
{C7F ES | 67779 PUSH H ; SAVE IT 
ісзо Ез а720 XCHG ¿PUT 0, Е BACK TO HL 
1С81 221520 5721 SHLD арояз ; UPDATE РТА | 
#234 205921 4722 LHLD SPCTR ; ВЕТ SP COUNT 
1237 ЕХ 4733 PUSH H ; ЗАМЕ IT 
1033 243221 4724 LDA PARCT ‚СЕТ PAREN COUNT 
сав 47 4735 моч Bà 2 PUT TO В 
122% 347021 4735 LOA  FNMOD ; GET FN МОРЕ 
іСЗЕ ағ 4737 . мом CA ; PUT TO С 
істо CS 4733 PUSH В > ЗАМЕ 3, С | à 
1091 346321 4739 LOA СІМ» БЕТ DIM sw 
1094 ЕЗ 4720 PUSH РЗИ ЗАМЕ ІТ 
102$ АЕ 4721 ХАЙ A ;CLEAR А 
1C?4 225321 4772 STA OIMSW | “i RESET DIM ЗМ 
1С?9 242с21 4773 LHLD FNARG ` ` ¿GET OLD ARG МАМЕ 
1072 Ез 4724 за H i ЗАМЕ ` 

= iCon 2А5Е21 ‘4725 LHLD FNARS+2 23087 OLD ARG ADDRESS 

іСао ES 479% PUSH H i SAVE | 
ICAL 2AFAZL $797 LHLD PROGE ; GET END ОР PROGRAM 
1са4 25 4793 РОЗН H ; SAVE IT 
102% 224220 4722 ` LHLD ExPRS ; БЕЛ END ЈЕ EXPR 
| САВ ЕЗ 4300 PUSH H ; SAVE IT 
ісаў 227423 4801 SHLD PROGE i ЗАМЕ NEM "END^ OF PROGRAM 
АСАС 3E01 4302 MUI l1 ¿GET ON SETTING 
1САЕ 327021 4803 STA  FNMOD : SET IN FUNCTION 
1C81 7281640 4204 ЫНЫП ADDR3 iPOINT TO EXPR 
10284 Е 4305 MOV с. м | i GET FM CHAR 
108% 28 4305 ocx н i POINT BACK 
ICES 46 4207 MOV в;м ; БЕТ HI NAME | 
1CB7 214522 4208 LXI H.BEGPR iPOINT START OF PROGRAM 
існа 7E 4809 FNZ: MOV ALM ;LOAD LEN 70 NEXT STMT 
iCBB 87 42310 ова А ; TEST IF AT END 
ICRC CAAGIA 4211 JZ SNERR ; BRIF FN NOT FOUND 
ICEF ES $312 PUSH H ; SAVE PTR 
іссо FF 4312 RST 7 i ADJUST H, L 
1CC1 03 4315 і ов з 
ІСС2 118817 4315 = LXI О, ВЕРЕ i LITERAL 
160$ 07 4815 RST 2 $30 COMPARE 
[СС C2pe1C 4217 NZ FNS ;BRIP NOT EQUAL 
10027 CS 43:3 РУЗН В i SAVE TEST NAME 





ІМТАІ 3030 ЗК PASIC VERSI. З 12:25:47 15 APR 1974 Pace 15% 
прив OBJECT LINE ТАЗ PCD ОРЕМОЗ COMMENTS 
КОСА CDD41B 431°? CALL VAR ; 59 GET маме - 
{СС c1 4320 POP З i RESTORE МАМЕ . 
¿CUE 7A 4321 MOV А, О ; GET НІ MAME Э 
ICCF 23 4322 сме B ; COMPARE З ( 
1600 72D81C 23 JN2  FN3 ; GRIF NOT EQUAL К 
из 78 4325 МІУ AE ; ВЕТ LU 5 
ich4 39 4224 ` СМР c ; COMPARE 
: iCDS САЕОМ: — 4325 JZ FNS i BRIF EQUAL 
. ¿CD2 | _ $327 ЕМО: POP H ; GET OLD РТА 
ichy «Е 223 MOV Е.М ; GET LO LEN 
ICDA .1500 43729 мут 0,2 i ZERO НІ LEN 
ІСІС 19 4820 DAD 0 ‚РОТМТ NEXT ЗТМТ 
СИП CSBAIC 4321 ӘМР ЕМ? ; LOOP 
. )CEO 01 4332 ЕМА: POP D ; ADJUST STACK 
iCEi CF 4853 RST 1 ; SKIP BLANKS 
1СЕ2 FE23 4334 Crt оре ; TEST IF ОРЕМ PAREM 
(СЕ C2ADLA | 4335 ` «МІ SNERR ; BRIF NOT 
iCE7 2 4335 , INX H i SKIP IT 
1CE3 COD4iB 4337 CALL VAR ; GO GET VAR NAME 
СЕВ ES 4823 РАЗН H i SAVE Hi ADOR 
1СЕС 2145621 4839 LXI Н, FNARG ; POINT DUMMY ARG ТВ. 
ICEF 72 4240 MOV MD і STORE LETTER 
1CFO 23 4341 INX H ^" ; POINT NEXT 
|СЕ1 73 42342 MOV ME ; STORE DIGIT 
ICF2 23 4243 INX H ¿POINT NEXT 
ІСЕЗ ЕВ 4344 XCHG ¿PUT H, L. TO D, Е 
1CF4 291520 4245 ` LHLD ADDR3 ;POINT TO EXPR STACK 
iCF7 23 4844 INX н | ; POINT CODE 
{СЕВ 23 4947. INX H ; POINT HI ADR 
ice? 7E 4243 MOV ALM ; GET HI 
{CFA 12 4249 зтах D ¿PUT TO TABLE 
СРЕЗ 13 425 INX D ; POINT NEXT 
{CFC 23 $251 IMX H ; DITTO 
ІСЕО 7E $332 MOV ALM i SET LO ADDR ` 
{СЕ 12 4853 STAX D ;PUT TO TABLE 
СРЕ. Z1 4355 | POP ^H ;RESTORE PTR TO STMT 
‚роо СЕ 4355 RST 1 м i SKIP BLANKS 
ilj FET? 4355 CPI "»* ; TEST IF CLOSE PAREN 
Ци? C2AO0108. 4957 JNZ  SNERR - ; ERIF NOT 
їюе 23 4253 INX H ; SKIP IT 
1007 СЕ 4859 RST 1 ; SKIP BLANKS ` ыы “ 
003: FESD 3850 CPI “=° ; TEST IF EQUAL SIGN ( 
“ ІА С2АОА 4861 “М2  SNERR i BRIF NOT 
tran 23 4352 INX H ; SKIP IT 4 
ОЕ CDO714  48ь3 CALL EXPR 500 EVAL FUNCTION 
iliii 20581А 4344 CALL EOL i MIST BE END OF LINE 
(014 El 4365 POP М ВЕТ H, L. 
111% 224520 4344 $i EXPRS ; RESTORE START OF EXPR 
1049 £1 4887 РОР H СЕТ H, L. 
„1119 227А21 “4863 SHLD PROGE i RESTORE “END’ OF PROGRAM 
АНАС El 4859 POP H i GET H, L | 
IMSAI 3090 2K BASIC VER=1. 3 12:42:53 15 APR 1975 PAGE 155 
ANDUR OBJECT LINE TAG ОРСО OPRNDS COMMENTS, 
#110 229821 4370 SHLD ғмаясе2 ; STORE ADDR 
1070 El 4371 POP H ; GET HL 
1121 224621 4872 SHLD FNARG ; STORE DUMMY ARG 
1124 Ft 4873 РОР PSW ‚БЕТ А, STATUS 
1124 326821 4874 STA DIMSW i RESTORE DIM 3W 
1923 C1 4875 POP B ; БЕТ 8,2 я 
1023 79 4376 MOV С i LOAD с 
ага 327021 4377 STA ЕММОП ; RESTORE МОЕ 
1120 73 | 4373 мом А, В ; LOAD B 
112Е 324921 437? STA PARCT i RESTORE PAREN COUNT 
iL £1 4330 POP H СЕТ H, Ú 
1824 225921 3831 SHLD SPCTR ; RESTORE ЗР COUNTER 
ims Е 2 POP H ; GET HL 
1135 221620 4833 SHLD ADDR2 ; RESTORE ADDR OF EVAL, 
i. €1 4334 POP oH -— ; GET HL - 
ima 01 ° 4325 POP D : ЕТ DE 
цизв 23 4635 ocx H ; POINT 2ND BYTE FOLLOWING ОР ` 
INC 221420 4887 SHLO 60082 |ЗАМЕ IT : i 
inm ЕЕ o 4239 RST 7 ; POINT TO ARG ТУРЕ B. ( 
ipsa 0% лане ов 5 ` 
iy 221220 4820 SHLD ADORI ; SAVE ADDR 
1144 ставі 42321 „ме EVD ‚20 WRAPUP 








те 


IMSAI 2020 


ей в 


1047 


1047 
1148 
442 
1040 
ТИЗЕР 


1820 


IISI 


1052 
ines 


OBJECT 


214820 
2413 


73 
C31DOE 


2K 


IMSAT 2080 ©К 


ARER 


#095 
1183 
{uss 
ipsc 
ОЗЕ 
itso 
1152 
1144 
ines 
1059 
іреп 
1062 
in7i 
1072 
1072 
1075 
1075 
{пуз 
1079 
inr: 
in7D 
ците 
1180 
1123 
1034 
ISA 


17:37 


им 
реє 
ко 
i fiki 


OBJECT 


ЗРЕО 
ЗРЕВ 
2FDD 
| ВЕС 
3303 
1233 
281Е 


57434154 


oo 


41474Е45 


o0 
544132 
оо 


414253 


5247A£ 
00 
3311 


| $24E44 


4234ЕЗ О 


BASIC УЕЭ-%. 


LINE 


Fe 


> 
~ 


ОРСО OFRNOS 


21:19:02 1% ape 


COMMENTS 


4393 BIMFL: EU + 


3324 
4395 
4395 
4227 
4398 
4299 
4200 
4201 
4202 
4903 
4204 
4705 
4705 


BASIC VER-1. 


LINE 


4203 
4209 
4310 
4211 
4212 
4913 
4914 
4919 


4915 
4917 


4213 
4912 


4920 
4921 
4322 


4923 
4224 


1943225 


4226 
4227 
4923 


492? 
4950 


‚ 4921 


4232 
4923 
4234 


4935 
423% 
4937 


4953 


493? 
4940 


4241 
4942 
49243 


i CONVERT 0,Е TO FLOATING POINT NUMCER IM БАС 


` 
^ 


. 
в 


ТАЗ 


АМОР: 
RNOR: 
RNOR: 
"МЕМОХ: 
NRNDY: 
НЕМОЙ: 
NRNIIS: 
HHATL: 


UL INE: 


TABLI: 


FUNCT: 


ABSLI: 


ЗОНІ. І: 


INTL.I: 


SONLI: 


RNDL I: 


SINLI: 


TANLI: 


ATNL І: 


3 


PLD 


н, касс ;POINT АСС 

М, 24 i МАХ BITS 

H i POINT NEXT 

мо CLEAR моз 

H i POINT NEXT 

м, Ü i MOVE MID 

H ; POINT NEXT 

МЕ > MOVE 138 

FNORM : GO NORMALIZE x RETURN 
12: 46: 24 15 АРВ 1275 PAGS 

OPRMDS ` COMMENTS 

15331 ; 16231 

16353 ; 15353 

15242? ; 156242 

7142 

132457 

5739 * 

11033 

“WHAT”, O 


“LINE”, O 
“ҒАб”,0 


з 
“АВ57,0 


ABS ° 


Кез. 


“358, O 


SAR 
171 
^INT^,Q 


INT 
171 


“SGN”, O 


SGN 
171 
^RND^,O 


RND 
171 
“SIN”, Ó 


ЗІМ 
171 
^COS^., Q0 


соз 
171 
“ТАМ”, О 


ТАМ 4 
171 
“атм”. 0 


атм 
171 
“INP”, Ó 


1-3 


: 
ч 
\ 





IMSAI.3080 SK BASIC VER=1. 3 


ALTR OBJECT 


1084 
1085 
1087 
| ПЕЗ 
10858 
ifsc 
ПНЕ 
ИВР 455850 
inca 
10C3 
1125 : 
iLCS 504753 
inc? 
ОСА 
іш 
{ILD : 
1,009 
inni 
{ПИЗ 
іе 
i fuo 
1003 
indus 
ipu 
ined 
10Е! 
12782 
inga 
inem 
inm 
іле 
ІЕС 
inu 
j FO 
10Ғ1 
НЗ 
iria 
пка 
ТОРА 
1DF3 : 
ШЕ СВ 

|ПЕЕ 55545249 
|КО2 4E4724 
1205 00 

105 4713 
1203 03 

JEG? 404354454 
LEON 24 

` ЗЕ ОЕ ОО 

{БОР 5812 
ЈЕ11 03 


00 
AOL 
АВ 
464747 


аз 
92435274 
00 

ESi2 

св 
41534349 
4? 

oo 

2012 

АВ 
4234124 
оо 

FD12 

cs 

Sh $C 
99 

1013 

АВ 
32304143 
4524. 


LINE TAG 


4947 
4943 
4949 


4950 
4951 
4952 EXPLI: 
4253 
4954 
4955 


$955 
4957 
4923 


4259 
4250 
$941 


2252 
4263 
4954 


4265 
4965 
4257 


4968 
4969 
4970 


4271 
4372 
4973 


4973 
4975 
3276 


4277 
4273 
497? 


4930 
4931 


LOGLI: 


OPCD SPRNDS 


12:50:33 15 APR 1975 PAGE 159 


COMMENTS 


INP 
171 
"067,0 


LOG 
171 
*EXP^,9 


EXP 
171 
^POS^,0 


POS 
171 
“LEN“,Q 


Ем» 
171 
“CHR37, о 


CHRS 
203 


"ASCII. O 


ASCII 
171 
“NUMS“, о 


MINS 
203 


^VAL^,0 


VAL 
171 
"SPhCES^,0 


SPACE 
202 


“STRINGS, б 


STRS 
211 
“LE=T3°,0 


СЕРТ 
211 








< i | 


IMSAI 3930 SK 


АПК 


|Е12 
LELAS 
јез 
1E1? 
1F1B 
iE1C 
1Е20 
1521 
1Е23 
{Е 24 
1228 
ЕСЭ 
LEZA 
iE2C 
1E2D 
1Е2Е 
ЕХЕ 
1230 
LES1 


OBJECT 


32424743 
3424 


40474424 

од 

5913 

ов 
245982354 


„> 


53544550 


1Е35 00 


123» 
iE2A 
1232 
ЕЗ0 
IES 

1E49 
1Е42 
iE45 
јЕЗА 
|ЕзЕ 
Е 2 


LETS 


JESA 


LESE 
1222 
ів 
ЕА 
{ЕФЕ 
1Е72 
LETA 
зЕТА 
1E7E 


ESS 


LESS 


ESA 


(ЕСЕ 
EZ 
1ES6 
ТЕЗА 
ЕЭК 
LEAZ 


5443454Е 
о 

5049 

99 
01300000 
02300000 
049000009 
д2се0е7 
ЗОЕЕЕЕЕЕ 
00817216 
0027 14ЕЕ 
ТЕОЗАЗЧА» 
01350483 
ООС?ОҒЕТ7 
ООРРРЕРЕЗ 
БЕАОУ5ВС 
7ЕСА0 520 
FE37220^ 
70432131: 
Есзерева 
?З0ЕЗАЗЕ 
O1C?OFTD7 
2045505Е 


702353555 





BASIC ЧЕК=\. 3 


L (NE 


4732 


4233 
4334 
4985 


4735 
4937 
4723 


493? 
4920 
4991 
4992 


49973 
4994 
492% 


4996 
4227 
4299 
5299 
$000 
5001 
2002 


$003 


5004 
7095 
5005 
5007 
5008 
5009 
5010 
5011 
2012 
$5013 
2014 
5015 
SOLS 
5017 
5013 
SOL? 
5020 
5021 


‚ 2022 


ТАЗ 


STEPL: 
THENL: 


PILIT: 


ONE: 


NULL. I: 


TUO: 


TEN: 


PI: 


NEGON: 


LN2: 

SOCI: 
MIC: 
35303: 


ЗТЕРГ: 
ATNCUO: 


HALFP: 
SINCO: 


LOGCO: 


ОРСП ОРАМОЗ 


nB 


“RIGHTS-, Q 


RGHT$ 

211 
"MID3^,0 
MIDS 

219 
^INSTR^, Ó 


INSTR 
197 

о 

12, 20, о 

x ӛтер” , о 
THEN”, Q 
“БТ“,0 


25165326 
*— 2. 


41?42040 


77594524 
45731223 
214642602463 
11522073 
2201221 
24447903770 
23640499 
13176791 
15777144 
42393569532 
2127222043 
42702972713 
2107339250 
42355372544 
2044572570 
229454007 
219233211138 
2107347755 
4127553224 
199555545944 
15775392 
4294949542 
2141720104 
4275370950 


ia: Е: 47 


COMMENTS 


$ CONSTANT: 


; CONSTANT: 
; CONSTANT: 
; CONSTANT: 


i CONSTANT: 


i CONSTANT: 
i CONSTANT: 
; CONSTANT: 
; CONSTANT: 
; CONSTANT: 
; CONSTANT: 


$ CONSTANT: 


Е CONSTANT: 
i CONSTANT: 
i CONSTANT: 
; CONSTANT: 
» CONSTANT: 
; CONSTANT: 
; CONSTANT: 
; CONSTANT: 
; CONSTANT: 
; CONSTANT 

i CONSTANT: 
; CONSTANT: 


; CONSTANT: 


i CONSTANT: 


15 APR 1275 PRISE 


19 
3. 141593 
-4) 9299929 


боі-әфбобобӛоо 


. 499147 <= 


25916226 


. 417320779 


41421355 


. 7353392 


Фл 22 


. 23217533. 
. 1720737 


1322271 
07952532 
03350627 


. 206312411 


570725 
54396371 


. 072532579 
. 00467375254 


О. 0001514241? 


9. 


=). 


9. 
=>. 


29993103 
4294712 
2222231 
2288733 





IMSAI 3080 SK RASIC VER=1. 3 12:56:13 15 APR 12765 POSE 151 
AWUR OBJECT LINE TAG ОРСО OPRNDS COMMENTS 
|ЕДА 7ЕЗТПЕБО 5023 DB 2122954704 ; CONSTANT: ©. 1345393 
}ЕРА FCEICT7O 7024 DB 42424545745 $ CONSTANT: -0 05511296 
ЈЕДЕ 7ABOSFAR 5025 DB 2053270934 i CONSTANT: 0. 01075727 
| {ERZ 7EFFFFA4 5026 ЕХРСО: DB 21207068240 i CONSTANT: 0. 2432937 
LERS 7C2007FO 5027 DB 2032755424 ; CONSTANT: О. 03125798 | 
|Ева 78А?0З3Ғ? 5023 DB 202439574? i CONSTANT: 0. 0023591371 
(ЕБЕ 74ВЗЕУ4Е 5027 DB 1957945702 i CONSTANT: 0. 000171552 
(ЕС? 6FB&52505 5029 De 1974212107 CONSTANT: © обосочлазо2 
à (ECS &CD?51A^8 5021 DB 1324022433 i CONSTANT: О. 0000004304 
ЕСА 5032 READY: EQU + 
ДЕСА FD 2033 Dnm 349 
{ECB 52454144 5024 DB || "БЕАОУ",0 
LECE 5? 
1EDO 00 
1ED1 so35 ЗТОРМ: ERU $ . 
IELI РО 5036 08 253 
1ЕП2 5394460 $037 ов “STOP АТ LINE -, 254 
AEN“ 20415420 | ) 
LEDA 4124545 
|ЕВЕ 20 
ЈЕДЕ FE | А 
JEZO 20455252 5023 ERRMS: DB ^ ERROR IN LINE 7, 254 
. iFES 4727043 
|ЕЕЗ 32204454? 
1ЕЕС 464520 
{EEF ЕЕ 
дей 5039 ; I | š - 
` $040 ; VERB (STATEMENT/COMMAND) TABLE 
5041 ; FORMAT IS: DB "VERB^,O0 
5042 i он ADOR 
4043; DB “NEXT VERB”, O 
$044 i ЕТС 
5045: END GF TABLE IS MARKED BY ОВ о 
5045 ; 
iEFO 5047 ІМРТӘ: EQU з 
iEFO 40493254 5043 LISTL: 08 “LIST/,O 
1EF4 00 
{EFS 5102 5049 оч LIST 
1ЁЕ7 52554Е 5040 RUNI I: 08 | "яум",0 
{EFA ОО 
1ЕРЗ CBOL 5051 OW  RUNCMO 
LEFU 462757 50:52 NEWLI: DB “NEW, 0 
РОО OO 
1201 SEOL 5033 DW NEW 
{203 424F4E 5054 CONTL: DB “сом, о 
FOS 00 
1707 0002 53055 он CONTI 
1FO9 544150 5055 ТАРЕ: ОВ 7ТАР”,О 
іғос oo š 
17200 2401 £057 ОЧ TAPE 
{FOF 53415545 5058 SAVEL: DB ”5АУЕ”,О 





Ж», е 


t , 
і, 
Eg. } 
. 


чир е 


IMSAI 73080 ZK RASIC VER=1. 3 12; 59:27 15 APR 1976 PAGE 162 


ША OBJECT LINE ТАЗ ОРІ OPRNDS COMMENTS 
ДЕ1З ОО 

17213 7401 SOS? ри ЗАМЕ 

lf ide 424559 2050 KEYLI: OB “KEY”, О 

171? OO 

LFIA 9101 5061 ри KEY ° 
iF iC 465245 $052 FREEL: DB "РВЕ", Q | 

iFiF 00 

1220 ADOL 5053 ОН FREE 

РОЗ 429496 5954 IFLIT: 08 "ДЕ: ,9 

1224 00 

172% 0505 5055 DH IF 
1Е27 52454144 2055 БЕАСІ: DB ^READ0^.9 £ 
iF2R OO 

ЇЕ2С 4203 5067 би READ 


1Е2Е 52455354 5068 RESTL: DB  “КЕЗТОРВЕ7, O 
1232 455245 
1235 00 | 
1736 2303 5063 DW RESTO 
_ ip 44412441 5070 DATAL; DB рата“, 0 
j AFSC 00 


1752 F301 2071 Dt RIIN 

ЁТЕ 664F52 5072 FORLI: SB “РОЯ”. 0 

292 оо 

1743 920% «077 DW FOR 
124% 48495994 5074 NEXTL: ГЗ NEXT’.O | : 
1) 00 

Рал ДЕО 527% DW NEXT 

iF 47425355 5075 60581: DB 700508,0 

IF 42 

iF 00 

ЈЕ“ 4703 5077 си 50308 . 
|Е “+ 52425455 2073 RETLI: DB ^RETURN^.O - 
QBUS 524Е 

је OO 

1 UM воз 2079 си RETUR 

Due 49485055 5030 св INPUT. Ó 

¿l 58 

1653 ЗЕОУ 5081 Ом INPUT 

ік". 5052494E 5082 DB ^PRINT^.O 

іэ 44 

Ека 00 

175$ 5503 5033 ри PRINT 

ІКАО 474F 5024 GOTOL: DB 96" 

iF^F 9445 508$ TOUIT: DB ETO 29 

177: ОО 

1272 2302 502^ DH вото 

|Е74 4204544 5027 LETLI: DB “ЕТ”, О 

14577 ОО 


1273 O&EO6 5033 он LET 
1ЕТА SSS44F50 5033 STOPL: DB “STOP, O 





IMSAI 3080 SK BASIC ЧЕВ=\. 3 ` 13:03:05 15 APR 1275 PAG 


Є 163 
аппк ОВЈЕСТ LINE TAG ОРО OPRNDS | COMMENTS 
|ЕТЕ ОО 
1F7F 000? 5029 Он STOP 
iP31 4534644 5091 DB 7ЕМ0”,0 
1284 ОО | 
1735 Е208 5072 Он END 
1237 52454! 5092 REMLI: DG КЕМ, 0 
IFEA OO 
ЦЕЗВ F401 2024 | DU RUN 
1230 21 “095 DB “:“,O 
ІЕЕ ОО 
ЈЕЗЕ Faoi 5025 OW RUN 
1291 ЗЕ 5097 DE 7¢ 
1F92 00 | 
1293 5503 5098 DW PRINT 
1Е95 52414Е44 5099 RANDL: ОВ “RANDOMIZE’.O 
129$ 4F4DA4?*54 
{ЕЭО 45 ъ 
ЈЕЗЕ 90 . 
ЈЕЗЕ бе ^ %100 DW | RANDO 
LIFAL ЗЕЗЕ $101 ONLIT: DB 70N7,0 
iF( ОО 
|Ед4 3309 $102 сн GN 
ДЕЛА 4F'*5*554 5102 GUTLI: DB ’nuT’,o 
іра 00 š i 
iFAA DAOS 5104 OW OUT 
IFAC 444942 5105 DIMLI: DB “DIM-.O 43 
ЈЕДЕ 00 - е | i ; ey 
LEBO 420A 519% Dw DIM 
1ЕН2 42494146 5107 CHALI: DB “CHANGE Z, О 
IFRA 4745 е 
1783 00 
QiPP9 ppoe 5103 DW CHANG 
IFPB 744546 5109 OEFLI: DB “DEF 
ЈЕВЕ 4644E 5110 FNIT: DB “FN’,O 
1ЕСО OO 
1FC1 F401 $111 OW RUN | 
ІКСЗ 00 5112 ва o | ; END OF TABLE 


1FC3 5113 ROMEN: ERU 21 

















ІМЗЕІ 2020 
ак OBJECT 


LEE 


2000 


2000 
2005 
доор 
2012 
2016 
2016 
2016 
2018: 


AOE O 


2010 
2020 
2024 · 
2023 
2020 
2920 
2034 


2023 


гозс 
2640 
2042 
2044 
204% 
гал» 
2043 
2040 
2052 
2153 
215% 
21258 
215С 
око? 
2160 


7164 


2163 
2155 


"діва 


2167 
ZIAR 


. 21589 


21242 
216k 
216С 
2162 
2170 


IMSAI 2080 СК 


Айк OBJECT 


2172 
2174 
2175 
21723 
2174 
2176 
2170 
RATE 
2120 
2132 
2123 
te 
21F3 
IAPS 
iE 
IPS 
Ед 
24ЕС 
2283 


(H100 


PLD дРемоз 


ОК БАЗИ УЄЯзі. 2 

LINE TAS 

5119 ORG 
тізе: 

6117 

Sits i 

$113, 

2120 RAM: EQU 
ЗЕ; А 
5122 LINEN: DS 
$123 IOPUF. 0$ 
$124 пита: 0$ 
S125 ADDRi: DS 
5125 А0082: DS 
5127 20083: DS 
5125 INDX: DS 
$129 REL: 03 
5:30 IFTYP: DS. 
5131 19881: 05 
5132 гувв2: 05 
$133 ГЕМР!: DS 
$134 ТЕМР2: DS 
$135 TEMP?: 05 
$136 ТЕМРА: 05 
5137 ТЕМР%: 0$ 
5133 ТЕМРЬ: DS 
S139 TEMP7: DS 
3:30 LINEL: DS 
5141 LINEH: DS 
5152 РАОМР: DS 

| $133 LEN: Ds 
$144 EXPRS: 05 
$135 РАСС: DS 
146 ЕТЕМР: 05 
5147 sTRIN: DS 
S142 РААСТ 5 
Sid? ЗРСТА: 05 
5150 CM^CT: DS 
515: Емейб: DS 
SS TIY: EQU 
$133 ILSW: DS 
$154 STMT: DS 

5155 ЕМО +: 02 
2156 MULTI: DS 
5157. TAPES: DS 
$153 RUNSH: OS 
Sis? DIMSW: DS 
$160 EDSM: DS 
5151 DEXP: DS 
5152 COLUM: DS 
5153 TRNDX: DS 
5164 ТАМОУ: DS 
5165 TRNDZ: OS 
BASIC VERw1.3 
LINE Таб ӘРСО 
$165 ТАМОЗ: DS 
5157 RNDX: 05 
2153 ВМПУ: Ds 
$16? PNRZ: DS 
£170 RNDS: D: 
5171 RNUSW: DS 
2172 FNMQD: 03 
$173 LINE: 03 
5174 STACK: 03 
2175 FORNE: DS 
$5175 DS 
$177 OQUT3W. з 
5173 РЕЗЦ: DS 
2172 NS: 95 
3129 БАТАР: DS 
s 13 31 DAT Ан: 5 
5132 26052: OF 
£133 [IMMED: 05 
тізі SEGPR: ЕЈ 
5125 ; 

1125 EMD 


о E 
| - 


a> 


12:95:23 45 APR 1275 2962 154 


COMMENTS 


$+4025/44)75%402% ; RAM STARTS OM ік BOUNDARY 


* 


мәНекЕенмкеким шы h w h т pisya eee p ке ын ы nio o uu 
> 


E 
2 
Š 


2) 


о) 
p 
ТГ 
re 
“> 


$ ALL CODE АСОУЄ THIS POINT ІЗ READ ONLY AND САМ GE PROM^SD 


: INPUT/QUTPUT SUFFER 

реє FILLED IN АТ ^ei TIME 
;НОГОЄ TEMP ADDRESS 

; HOLDS TEMP ADDRES: 

LNOUOS STMT ARES Пик ма EXPR 
i ROLOS VARIAGLE МАМЕ ЈЕ F2OR/NEXT 
; HOLDS THE RELATION ІМ GN IF 31M 
; HOLDS TYPE CODE OF LEFT SIDS 

; TEMP STORAGE 

DITTO 

; TEMP STORAGE FOR FUNCTIONS 


i HOLDS MIN LINE NUMBER IM LIST 
; MOLDS MAX LINE MUMBER IN LIST 
; HOLDS PROMPT CHAR 

; HOLDS LEN OF STMT 

; HOLDS ADOR OF EXPRESSION 


STRING BUFFER 


е 


COUNT OF COMMAS 

SYMBOLIC ARG & ADDRESS 

DEVICE ADDRES? FOR TERMINAL 
SWITCH, ОМ=ЕМРИТ LINE MODE 
HOLDS 4008 OF CURRENT STATEMENT 
: HOLOS ADDR OF MULTI STMT РТА 

; SWITCH ожма MULTI STMT LINE, t= 
SWITCH OsNOT IMPUT FROM ТАРЕ, | 
FORUN MODE, L=IMMEDIATE MODE 
;O=NORMAL EXPR, 1 =SUBSCRIPT EXP 
i 12EDIT, OsRUN 


— w о әз "Ww 


-. 


; CURRENT ТТУ COLUMN 


19:16:22 15 APR 1976 PAGE 145 
COMMENTS 


i L=RANDOMIZE., ожмо RANDOMIZE 

i SWITCH, O=NOT IN DEF FN, сто = 
i НО ADD OF PREV LINE NUM 
HOLDS ADDR OF START OF RETURN 5 
‚ МУМЕВЕР OF ENTRIES IN TABLE 
;ROOUM FOR 3 NESTED FOR /NEX1 
(SWITCH ON = ЗИТРИТ,. ПЕЕ = MO Mj 
i УМЭРАТМТ ENDED ЧІТН, ов, —— 0 
HOLDZ LAST ТУРЕ (МИМЕНІС/ЗФТАТМЗ 
‚ ADDRESS ОР СУВВЕМТ SATA ЗТМГ 
PROOF ESS ОЕ DATA Ре 

:АПОРВЕсЗ OF PANDRAM ЄМО 

» IMMEDIATE COMMAND STORAGE ARZA 


е 
- 


[IMSAI 3030 SK BASIC VER-I!. 3 13:22:25 15 APR 1975 PASE |. 


+++ CROSS REFERENCE ees 
таб DEFN ADOR REFERENCES 


ABS 2792 112А 2592 3720. 

ABSLI 48919 1072 ы 

ABORI 5125 2012 0423 0434 0452 0741 0775 0731 0921 0945 0950 0954 1151 1127 

1213 1244 1251 1272 3327 3335 3734 3770 4752 3758 4320 

ApDR2 5126 2014 3791 374? 3775 9837 

anes 5127 2016 3646 3705 3923 3350 4033 4055 4773 4731 4204 4245 4233 
ALPHA 4491 1820 3407 3442 4635 

о HES 4748 1653 3745 4755 

ARGONU 4753 1С72 322? 3244 3255 3257 3270 3312 

ASCIL 2142 1220 42635 

АТРЕО 4144 1972 

АТМ | 26590 LOSE 4944 

ATNI 2701 1050 2695 2693 с 

АТМСО 5007 1659 2721 

ВР, 13943 шрга 

БАЗІС 0046 0001 5185 

SEGPR 5134 2245 0157 0222 0354 0400 0487 0544 059% 0532 1553 42563 
РТМЕ. 4322 1047 0375 3037 

Ена 4133 1250 

соғым 4274 14245 
. CHAL 1591 09£3 1614 

CHAZ 1613 OFF? 1580 

CHAS 1647 042? 1660 

CHALI..5107 1F32 

CHANG 1571 0988 5103 

CHRS 2129 12Е5 4952 

СМАСТ 5150 2158 3957 | 

CuLUM 5162 2168 9706 3045 4124 4123 4135 419? 420? 
СОН?! 0072 0013 4317 

со“ е? 1773 1А40 0075 

СОМУ 4304 1651 4312 

сом? 4305 1852 9313 

Comes 4208 1А55 4303 

COMPS 4214 1852 4509 

семе? 3059 1222 3064 

OMICS 3073 127A 3078 у , 
CONC4 3079 12252 2072 

.CONCS 3022 1252 3094 

: CONCOS 3107.17СС 3112 

CONCA 2048 1270 3208 

CONTE 4270 LAIC 

CONTI 0540 0200 5055 

COMTL 5054 1293 | 
- CONTO 4220 1825 

COPYD 4627 16:24 0103 0152 0153 0379 0528 1505 2257 2457 2712 4694 4704 
СОРУН 4499 120 0094 0249 0233 2201 2256 2331 235? 2733 2017 

COS 2550 1031 2672 4932 

COSLI 4937 109C 

CAL 4024 1911 4103 











IMSAT 3030 OK BASIC VER=1. 3 13: 22:55 1$ APR 1275 PAGE 2 
eee CROSS REFERENTE e 
TA DEFN ANCR REFERENCES 


CRLF 4115 1922 0657 4095 4122 4177 4130 4201 
р CVERR 4275 JARO 1260 1235 141? 2202 
ПАРАЯ 4371 1993 1337 
патАв 5131 2183 0146 0243 0357 0224 4529 
рата, 5070 [ЕЗЗ 1370 
ЛАТАР 5130 21F5 0401 0595 1379 1255 1392 1407 1423 
БЕРІ! 4109 1FDDB 4315 : 
ПЕХР 5181 214A 1920 1996 2067 23: 
07м 1555 0042 1741 $105 
ріні 1487 (ASO 1691 
Ма 1729 OA?2 1734 
niM3 1735 BAIN 1771 
DIM4 i742 одай 1729 
DIMLÎ 5105 IFA 
PINS 5159 2153 0184 1352 1575 2922 3522 2247 3010 4030 4034 4037 4732 4722 


ЕСНО 4152 1984 413? 414? 
EDITI (212 0005 0213 

ЕПІТ2 0273 OOES 0254 

EDIT? (0244 9106 926? - 
EDITS 025% ОЛДА 0220 9225 0245 
Сита 0255 OLIA 2250 2222 0285 


Е 02728 O1IF 0225 0231 023 


ETITS 0249 0134 0276 0273 : id | : 
EMIT 0277 0140 027% | 


EnMi 2972 1340 2340 | 2 

EDM2A 2724 1348 2298 | 

ROMS 3223 1353 3981 

EnM4 — 3999 1367 3352 | 

EDSW 5120 2149 0126 0320 0557 1015 4271 

EN 1452 O2F2 0422 0491 0513 0520 5022 

ЕМА 1 5155 2153 0410 0611 0626 0826 4333 

ЕНИХР 3643 )7EO 3472 

FOL 4319 15863 0563 0594 0504 0623 0713 075? 1023 1120 1191 1270 1232 1551 
1472 1499 1554 1595 1632 1742 4864 ` 

EOLO 4221 147? 4323 

Е 1 4232 АТС 432 

ERRMS 5033 1ЕЕО 3432 

ERROR 1472 1COE 0025 

ЕУО 2707 15691. 

EVI 3703 1554 3713 

єу10 3331 1790 2354 3367 3870 3373 





EVILS 3731 1723 3902 
EVIA 3713 1640 3731 
EVA 3719 1474 2714 


ЕМЗА 3723 1624 3726 3723 
ЕУЗ 23742 1ФАВ 3742 4891 
ЕУЗА 3749 15СС 2323 А 
EV4 3796 1620 3755 








IMSAI 3050 SK BASIC VER=13 13:23:22 15 APR 1975 PAGE 3 


TAG ВЕРН ADUR REFERENCES 


EVAA 3207 1704 330? 
EV4B | 3216 170F 322 
кыз 3824 1710 3732 
EVA 3335 173A 382% 
EMT 3851 17925 3856 
кз 3987 1750 3353 
EV? 2252 175B 33237 
EVAL 3705 1655 3113 3647 3775 3335 3240 395$ 
ЕУСОМ. 3955 1314 2375 . 
клр 3940 1326 334? 333? 3948 3995 4750 
смер 3970 1837 3975 
EVNEG 3241 1206 3877 
EXEC 0235 0150 0202 
ЕХЕСТ 0201 0160  O305 
EX 2750 10ЕС 3925 4253 
EXPL 2777 1104 2757 275? 
ЕУРСО $025 1Є32 2735 
EXPLI 4952 1рРЕ ! і 
EXPR 3372 1407 0471 0703 0734 0747 0764 0274 9920 1022 1541 1435 1450 1515 


EXPRS 524% 204% 2327 3399 2401 3421 2432 3500 3511 3522 3532 3545 3548 3592 
| 3579 35:5 3619 3650 3575 3537 2594 2527 3705 4025 4029 4040 

— | 4445 4799 48656 . | 
oe РАСС 5145 2043 0092 0101 1163 1345 1364 1370 1372 1226 1914 1922 1931 1249 
Б 1955 1971 1295 1992 2008 2019 2025 2032 2052 2053 2179 2210 
222$ 2234 223? 2258 2263 2367 2231 2351 2373 2427 2473 2511 


— Pad x ۶ ә 
«914 2216 2502 2673 2738 2740 2737 273? 2723 2300 2320 2833 
| 2244 2353 2854 2322 2907 2922 2924 2944 2947 4723 4726 4893 
РАІ 2947 ово 2233 
FADD 2164 0059 1155 2335 2594 2531 2653 2702 2343 2391 2920 3?0? 
PAWS 2191 0070 2133 
FADDS 2197 008? 2127 2122 ы 
FANOS 2219 ОВАЕ 22 
FARO7 2221 0080 2227 
FADD? 2223 ODBC 2204 
FADOA 2254 ОЏЕР 2233 
FADDB 27923 ODF7 2272 
FADDJ 3207 17BF 3863 
FADOT 2542 OFFS 1952 1959 2023 2035 2237 2397 2459 
ЕА. ТЕ 0261 O1F4 0942 0244 0945 0226 | 
FRIN 4712 1С38 0703 1441 1452 1516 1642 1555 3027 3135 3211 3227 3222 4005 


FBINO 4733 1653 4741 
78141 4742 ICSE 4737 . 
FBINZ 4744 1050 4727 4721 
Fnec 3035 1270 1604 2739 2743 2045 3127 3151 3154 3136 3242 
4 Епту 2411 0852 1906 2002 2511 2637 2708 2775 2213 3872 
ЕПІУЗ 2444 ОЕ12 2453 
FDIVS 2461 ОР23 2490 








mms. 
` 








IMSAI 3080 ск PAS 


таб 


куё 
FU1V7 
FDIV3 
FEXP 


FIN 
FIN2 
FIN3 
FING 
FINS 
FINS, 
FIN? 
FINS 
FIN? 
FING 
FINS 
FINC 
FIND 
FRI 


ЕГИН 1 


DEFN 


2471 
2474 
2433 
2513 


1з35 
1354 
1872 
1235 
1223 
1901 
1204 
1703 
1715 
1917 
1323 
1243 


492 


. 2233 


2391 


4345 


2334 
2327 
2293 
2401 
4758 
3302 
4227 


4622 


5151 


3425 
3429 


3511. 


5110 
5172 
2274 
2221 
2293 
0721 
0753 
0755 
775 
0231 
0725 
0774 
0802 
0807 
саз? 


ADDR 


OF 42 
OF SS 
OF SS 
OF SS 


0812 
ORSI 
0850 
0857 
0873 
0831 
0835 
982E 
ОВРЕ 
ове 
2286 
OSCE 
OBE? 
OES 


ORT FT 
ова 
овв2 
ОЕВЗ 
ОЕСЕ 
овца 
1272 
15 

12593 
1CE! 

mek о 
1407 
1400 
14ЕЕ 
ЈЕЗЕ 
2170 
CE LO 
о228 
0235 
0402 
9547 
озав 
0350 
ОЗЕ 
0472 
0828 
0427 
042E 
9437. 


ІС VER=1. 3 


2099 


12:24: 


2131 2134 2244 2205 


3199 33 


1927 


1249 
2515 


3239 


4724 


4725 


--62 2409 


0733 


0252 


1242 


{1 13 APR 1975 PAGE 4 


QE t 


2323 235% 2475 2429 2403 


251? 29272 2543 2712 2745 2723 2790 2339 2210 


3829 4270 4572 


4303 4877 


2471 234? 2013 3013 4905 


0925 0882 0266 





ISAJ 2080 2K BASIC VER=L 2 С 13:24:25 `1$ АРА 1975 PAGES 


і ore Z ROSS REFERENCE e 


таб DEFN ANDR REFERENCES 


FORA O743 O4FQ 0360 
FORLI 5072 1ЕЗЕ š | 
š FORNE 5175 2132 0152 0272 0785 0810 1124 1142 114% 1172 
FOUT 1951 ОВЕЗ 0373 0473 3166 
FINITO 1979 OCO4 1977 Г 
FOUT1 1993 осов 
FOUT2 1924 OCOE 1920 
FOUTS 1992 OC1F 2001 2003 
FOUTS 1294 ОТА 200% 2016 
FOJTS 2002 053 1299 
FOUTS 2004 0649 1995 
FOUT7 2013 0053 2030 
РОЈТЗ 2032 0238 2020 2023 2024 
РОТ 2037 9632 2017 2029 2033 2090 
FOUTA 2047 ОСА! 2044 
FOUTS 2050 оса4 2011 
FOUTE 2053 OCA? 2062 ` 
- ENTO 2055 OCAE 2040 
: FRUTH 2064 OCSB 2031 
FOUTI 2022 0502 2071 
FOUTS 2082 обр» 2034 
FOUTK 2099 ОПЕБ 209% 
FOITL 2101 OCFS 2093 
FOUTM 2103 ОСЕБ 2196 
FTN 2113 0013 2126 
FOUTO 2127 OUJE 2116 2137 2144- 
FOUTP 2172 ODIF 2123 
FETA . 2134 0028 2130 a 
FOUTR 2140 0032 2117 
FOUTS 2143 0041 2141 
FOUTT 2155 0048 2162 
FUT 2017 OCV 2012 
FDUTU 122? 071? 1237 
; FOV1 2502 OF5F 2493 
Е . FOVUM 2493 OF5S 2273 2422 
ЕВЕ: 0342 0140 5053 
FREZL 5062 1F LC 
2581 2533 ОРЗВ 2539 | 
FSHFT 2555 OFAO 2224 2252 2545 | 
FSB 2318 9Е53 0777 0732 0922 1162 2587 2591 2704 2752 3955 3218 
FSUBT 2522 ОЕВА 2251 2464 
ЕТЕМР 5145 2040 1854 1350 1373 1925 1945 1250 2006 2014 2021 2025 2129 220% 
2220 2255 2255 2259 2254 2263 232? 2332 2255 2370 2334 2224 
| 2375 2329 2442 2451 2452 2455 2447 2432 
РТЕЗТ 27506 0Ғ75 0770 0233 0223 0943 1975 2175 2177 2195 2223 22=3 2722 2527 
2344 2417 257? 2695 2730 2744 2212 2377 2231 
FUNCO 3462 1402 3513 | 
FUNCL 3454 1446 3475 
FUNCZ 3470 14RO 








> > 
. МЭА] 3030 ЕК BASIC ЧЕН=.. 3 | 13:24:59 15 APR 1275 PAGE > 
eee CROSS REFERENCE ee 


: TAG DEFN ADDR REFERENCES 


FUNCS 3477 1488 2469 
FUNC4 3499 {SCF 3467 
FUNCT 4913 1D72 3442 
GETCH 4265 1813 4037 . 
5ЕЛЕМ 0135 0085 0173 2250 0234 0235 9360 9321 0919 ого 
GETS) 1312 QSOE 1223 
GETS2 1322 O81F 1315 1313 
681353 1330 0220 133$ 
GETSA 1340 0330 1333 
GETSS 1342 9332 1320 1222 
GE133 1252 0840 1009 1241 1376 
GETS? 1358 C250 134 . 
GETST 1212 07 1272 1420 
5058. 5075 1246 0951 1723 
60301 0524 0350 1547 e 
30248  O^15 0347 093 077 
зато 0551 02723 0548 0949 0252 035 
ба 0541 ОЗЕР : 
59702 0755 OLFS 0597 0632 1569 
193 0583 0318 957: 0575 
GOTOL 5024 1250 0947 1223 
ЗТЕМР 4453 1208 3400 323% 3522 : : 
HALFP 9014 1232 2526 2570 2523 2610 2657 ` | 
НИК: 4235 iABS 4222 
HORTL 4373 1ава 0322 1455 
ДЕ ока? 0506 5055 
ІРІ 0253 0524 0230 
ТЕ2 сата 0523 0237 
ІР? азса УСС 0912 
ТЕЗ 0209 0535 0397 
ТЕ 0905 0530 0901 
IFS 0911 9547 0904 
1F7 0921 9535A 
128 0235 0577 0932 | к 
IF? 0940 058п 0927 
ЈЕВ 0953 OSEC 
ЕЕ (952 0505 0927 
IFG ^ (1947 OSCE 0992 
ТЕН 0273 0507 0971 
ІРІ 0273 OSDF 0975 
ТЕ.) ОФЗА OSED 0934 
(ЕК . 0220 OSF? 0923 
IFL 0994 OFFA 0792 1001 
РТТ 3064 1222 
ТЕМ 0992 0404 0 
ТЕМ 1000 0509 0281 
ТЕТҮР 5130 2018 0873 0923 
1.34 5152 2140 0155 1291 1305 4097 
ТИМЕЗ 5183 21FC 0205 0220 0253 0221 огоо 0309 











J Pes МАТ 3020 2K BASIC VER=1. З | 43:25:23 15 APR 1975 РАСЕ 7 


+++ 2 R б ° 


u) 
„э 
2 
m 
т 
in 
д 
m 
= 
ЧЕ) 
"m 


таб || СРЕМ ADDR REFERENCES 


INUX 5128 2018 0729 0735 0786 0354 0857 1122 
(мтг; (0130 0049 9042 
INIT2 0124 0052 0142 ` 
INIT? 0143 ООЗЕ 0123 , 


INP 2020 1250 4947 ^ 


іме, 1275 O7C2 1210 
INPLi 1297 07E4 1304 
INPL2 1205 ОУРО 12929 
INPLI 4946 1081 

INPUL 1216 0750 1263 
(мәу2 1221 0758 1213 


INPS 1223 075F 122 š 
INPU4 1220 ОТЬА 1225 © 
INPUS 1240 0770 1237 : 


IMPUS 1241 0772 1220 122? 

INPUT 1251 0792 i248 

` {923 1244 0745 1252 

.INPU? 1254 ОТАА 1274 

INPUA 1272 9789 1254 

INPG 1270 0783 14145 

INPUT 1201 0732 3031 

145 3529 1628 346? 3672 3474 358% 
INGO | 3665 1800 3653 

INSI 3671 1613 3657 


: INS3 2470 1617 3466 о 
INSTI 3216 1281 3320 | 
INST2 3313 13864 2215 қ 


INSTS 332: 12BD 3217 3219 

INST4 3272 12 

INSTS 3341 12D2 3262 3371 

INSTS 3343 1300 323? 2362 

INST7 3347 13ЕЗ 

iMST3 3352 15ЕЗ 3258 

INST? 3243 1379 3355 

INSTA 3270 1402 3344 

INSTR 3393 13A7 4939 

s INT 2923 1145 4725 4926 

ІМТІ 2339 1153 2335 

INT3 2345 1152 2341 

INT4 2853 4140 2363 

INTS 2555 1172 2361 

INTLI 4225 1030 

ТОВУР 5123 2005 0082 0229 0277 0521 0643 0581 02452 1212 1222 1225 4071 4105 

4171 4420 | 

РТВ 5047 1ЕРО 0430 

KEY 0337 0191 1464 4273 4277 “061 
KEYLI 5050 1F16 
` LDAP 3405 1435 3225 

LOSTN 3542 1525 3408 











ІМЄДІ 3080 SK BASIC VER=1. 3 . 13: 25:43 15 APR 1275 PAGE 3 


var CROSS REFERENCE e 
TAG DEFN АППА REFZAEMCES 


Lav 3431 1465 331? 4057 x | 
ПЛА 3415 1440 1443 2424 | > 
LDUZ 3425 145A 3419 5 


LETI 1021 0629 10154 

LET2 1034 0643 102? 

LETZA 1039 0546 1035 1309 1349 1662 | л | | 
LETS 1047 0524 1042 : ~ 


- LETS 1052 0683 1077 
. | LETS 105? 0574 1074 


LETS 1073 0431 1051 

L.ET7 1090 0595 1087 1032 x 
LETS 1102 0543 1042 : 
LET? 1105 OSA^ 1110 
LETLI 5087 1F74 pm 
LIN& 9172 217& 0203 0424 1194 1436 4545 
LINER 5141 2042 04467 0475 0485 0503 

LINEL 5140 2040 0455 047% 0424 

LINEN 3122 2000 0545 1437 4454 4647 

LINED 4213 12006 0522 1482 4555 

LIST 0455 0251 0222 5049 

LISTI 0487 0231 0470 9420 

1572 0483 0234 0532 0533 

LIST3 0497 0235 

(1572 0507 0244 0501 

LISTS 051$ 0234 0512 

LISTA 0521 0727 0514 0513 

(1877 0823 0203 0573 

LIST3 0532 0204 0500 0506 

LISTU 5043 1ЕРО 

LIT1 3553 1554 2571 

5112 3935 1578 3523 

LITS 3405 1594 3410 

LITS 2511 159C 

LITST 3550 154E 2457 

LLINE 4916 1063 1207 з 





~o 





IMSAL 3020 2K BASIC VER=L 3 


- 
- 


12: 25:03 19 APR 1275 раз > 


Lr | | sop CROSS REFERENCE e 
TAG DEFN ADDR REFERENCES 
LN2 *002 1ES2 2744 
LOG 2724 10475 3922 4950 
0061 2732 1004 2735 
š 1962 2744 1002 2741 
LOGCO SOL? ДЕЗА 2757 
LOGLI 4949 1023 
LOOKD 33272 141С 2516 3541 3551 402% 
LOOKO 3622 15862 2404 3437 3441 3512 3831 3834 
LOUT 4231 1283 4226 4227 
HIDS | 3260 1260 4986 
| MIDO 3272 1377 3247 3253 
: МІШ 3220 133$ 3274 3277 
M102 3295 1392 3231 3222 
HISS 3220 1395 3234 
MIDA 323295 1228 3200 . 
MULTI 5155 2165 92225 0405 0531 0513 0524 1330 4331 


NEG | 2925 1104 2595 2697 


NEGON 5001 ЦЕФЕ 2942 
МЕЧ 0343 О(?Е 5052 
МЕЗЕ 5052 LEFU 
MEXT 21112 ОБЕ 5075 
NEXTI 1133 9404 irat 
^ | NEXT2 1133 0900 1134 
| | NEXT3 . 1143 060? 1127 
МЕХТа 1170 0708 
МЕХТ 1176 0714 116? 
МЕХТЬ 1173 0713 1163 1171 
NEX17 117? 0706 1177 
NEXTL 5074 1645 0850 
NOTES 1147 1974 4132 
Ж NOTE 14151 1992 
- NOTCO 4131 1957 4127 
NOTCR 4125 1949 4092 
^N за NOTEO 4359 1682 0551 0621 
NOTZi 4241 19F4 4228 
нат72 4250 12804 4247 
NANOS 4914 1062 
МАМОХ 4911 IDSC 0152 0154 
NANDY 4912 105Е 
NRNDZ 1912 1060 
NS $179 21F5 0675 0377 
NULLI 4997 1E4O 0307 
IMS 3155 12FD 4963 
NUMI | 3169 1308 3172 
NUMEM 451% 1828 4502 
NUMER 4504 1825 0953 1545 
NXERR 4373 1820 0845 1123 
ОВЕСЕ 3613 1540 2555 
ом 1403 0943 5102 


257? 2740 2753 324? 


1551 


0395 | 


1023 3897 3942 


- 


0922 


1555 3224 3412 4400 4641 
1142 





Pm. | 8 





(мат 3030 3K BASIC VERxÍ. З 


- 


TAG 


SNS 
омза 
ОМА 
ONS 
UNG 
ом 
ома 
ON? 
ONE 
OLIT 
ОРІ 
б? 
ОРЗ 
OPLPÍ 
OPL P2 
ПРЕРЗ 
ort 
OTA 
от4 


"от 
CHITA 


СЇ 
итн 
ОМЕАВ 


FOS 


POWER 


PRENT 
PRINI 
PRINZ 
PRINS 
PRING 
PRINS 
FRING 


PRINT 


PRINS 
PRINS 
PRIMA 
FRIMB 
PRINC 
PRINT 
Pra. IM 
PROGE 


DEFN 


153 


153% 
1545 
1549 
SOL 
1555 
155 
1554 
1996 
5101 
2543 
2590 
3700 
3654 
3560 
355? 
4172 
4172 
4136 
1411 
5124 
$103 
2177 
4353 
4321 
$143 
3992 
5009 
4995 
A379 
4402 
2022 
- 3910 
-4234 
9443 
0546 
0552 
9459 
0533 
04:33 


0678. 


ов»? 
GAPS 
0702 
0713 
0713 
0435 
4560 
5182 


ADDR 


0259 
оФка 
OF7D 
9287 
09238 
0997 
озао 
OFAB 
ЈЕЗЕ 
АРА 
{SEP 
1638 
1650 
15F3 
1504 
1502 
1991 
1990 
АЕ. 
оса 
200Е 
РАЗ 
21۴3 
LASS 
LACE 
2153. 
1EIE 
јЕЗа 
|Е<В 
LACS 
LAr 
1275 
17С7 
1541 
035? 
0270 
378 
оззс 
9280 
Q3C5 
Өзек 
Q3U3 
озре 
O3DF 
ОЗЕЗ 
ОЗЕС 
0355 
1BFC 
ZIFR 


"tee Ç R Ó 3 S 


REFERENCES 


1525 
1544 
1542 
1546 
1237 
1553 
1553 
1521 
9721 


3525 
3533 


1550 
1543 


1555 


2701. 


3222 


3636 . 


3554 
2663 


4137 
$175 
$173 
$104 
1442 


0155 
2303 


"ооо 


33832 
0344 
3523 
245? 
4421 
4415 
42% 
337? 
4123 
0701 
0532 
0719 
0545 
9577 
0693 
0535 
9462 
9554 
0563 
0717 
0550 
0651 
15745 
0257 


0675 


2033 
4275 
2253 


3531 


0710 


зога 
8634 
0257 


13:25:24 15 APR 1276 PAGE 10 


ЕЕРКЕКЕНС же ` `° 


2772 2730 2317 


3634 3541 


3024 z 

4125 4221 4223 

2404 2731 237? 

0552 0622 178 

2470 3700 3702 3232 4017 3020 4044 4724 4275 


2713 


0257 ОЗА? 3325 4727 9801 4348 





УМЗАТ 8080 ак BASIC VER=1..3 


‚ Таб 


. PROM 
PRSH 
`QTRPI 
ком 
RANDL 
RANDO 
RUY 
RUY1 
RDY2 
ККАО 
READ! 
RFADZ 
READS 
READS 
READS 
READS 
ВЕЛО? 
READS 
READL.. 
HEADY 
PEDIM 
REDMI 
RF IM 
REL 
кем.т 
ЕЕЗП. 
RESTO 
RETLI 
RETUR 
RGOHTS5 
яма 
ЕМО} 
RN22 
мез 
кмо4 
RNDS 
гет 
FENOL 
АМОР — 
. RNDQ 
RMCR • 
ENDS 
RNDSW 
вних 
кызу. 
RNOZ 
ROMEN 
. RSTI 
RST2 





DEFN 


$142 : 


5173 
2095 
5129 
5099 
1423 
OLAZ 
9175 
0134 
1374 
1324 
1393 
140? 
1410 
1417 
1420 
1437 
1423 
7065 
5032 
1754 
1750 
4071 
3129 
503 
5023 
0589 
2073 
o299 
3249 
2937 


2757. 


2952 
2761 
2270 


2292. 


2997 
4931 
4208 
4909 
4910 
$170 


gens Та сир 


5157 
5168 
516? 
5113 
0952 
0044 


++ ROS 


13: 26:50 


е 


REFERENCE 


v 


REFERENCES 


4070 
0642 
2715 
0047 


5100 
0346 
0133 
0131 
1414 
{397 
1332 


1413 


1922 
1405 
1401 


1423. 


[426 


4977 


0652 0700 4398 4404 4407 


1524 147? 1491 4435 


5067 


0174. 


1597 
4195 
0916 


2052 


507? 
өт 
01232 
300? 
2957 
2285 


' 2965 


2255 
2799 
3449 
292? 


2937 
0175 
0397 
2949 


0041 


1799. 


4130 
0739 0935 0940 0994 1522 1532 1555 


3520 4922 қ - 


2959 


2004 - 
0134 0373 1201 3011 
1503 3015 


1$ АРА 


еже 


1974 PAGE 11 











IMSAT 3020 SK BASIC VER=1. 3 13:27:14 15 APR 1275 PAGE 12 
. «+ CROSS REFERENCE see 
таз DEFN ADDR REFERENCES 
2373 0078 0012 


RSTS (иЗ 0020 2:73 2196 2340 2265 
RSTS 0097 0030 
RST7 0105 0033 
RST7A 0120 0045 0112 
RIERR 416? 1444 0407 ° 
RUN 0405 ОДЕ4 0527 0614 0654 0653 03352 0357 0925) 1022 1037 117% 1129 1271 
1310 145471505 1515 15452 1743 5071 5094 5034 5111 
RUNI 0412 0204 0403 
RUM2 0417 020Е 0404 0532 
RUNS 0427 0220 0310 0411 
RUNS | 0428 0221 0940 
RUNS (0421 022А 0451 
RUNS 0447 0242 0435 
рым? 0452 0248 0432 
RUNCM 0322 O1CB 50541 
RuNLI 5050 1ЕЕ7 ` 
RUMSM 5173 2157 0278 0221 0417 0553 1477 
сав 443% 182$ 3432 
SAVE 0512 0174 5052 
SAVEL 5053 IFOF 
SCHO 4529 1347 4533 4422 
: | SIH 4410 |Е4А 4557 
А ЗОНЕ 4534 1846: 4542 4547 ; f 
© SCH3 3858 1870 4532 
зсна 4573 1222 4559 
SCHS 4575 1820 4572 4573 
нь 4522 1394 4523 
H7 4579 1БАЕ 4564 
зона 4412 1602 4617 
SCH9 4421 LECF 4550 
SERRC 4520 1832 072? 1149 1297 1357 1353 1581 1520 1521 1533 1572 3420 4049 
SGN 2303 1122 4929 
SGNLI 4973 1037 
SIN 2553 OFA? 265? 2535 4935 
SINt 2583 OFBT 2530 2592 
5142 2534 ОЕВВ 2481 
SINS 2573 OFDO 2552 243? 
ФІМЗА 2510 OFEA 2404 
SIN@ 2527 1000 2722 2758 2736 
. SINS 2529 1002 2543 
SINCO SOLS 1ЕЗА 2523 
SIMLI 9934 1095 
SKP2Z 4443 1804 0433 0447 3470 2477 4455 
SKEP 30 1525 3553 3521 343? 3629 
SNERR 4347 iAAO 0732 0746 овог 0214 0925 0957 1017 1031 1035 1726 1432 1513 
: 1520 1540 1557 1533 1527 1531 1671 17925 1753 1739 1793 1212 
1317 3485 2515 3559 3552 2545 3703 2299 3989 4324 4558 4405 
4534 4811 4225 4257 4251 





и 





IMSAI 3080 SK BASIC VER=1. З 


TAG 


SPACE 


SPACE 
SPOTR 


5есі 
засо 
$863 
соя 

SARI 


" өл 


552 
50015 
STACK 
STEP 
STERR 
STMT 


STOP 
STCPL 
STOPM 
STRS 
STRII 
STRIN 


531 
5082. 
SUB? 
5/52 
SUBSC 
TABLI 
TABET 
TAN 
ТАМ; 


DEFN 


3215 
3205 
514? 


5003 
S004 
SONY 
2971 

2715 
4922 
4439 
4423 
$174 
4993 
435$ 


5154 


1463 
203? 
5035 
32:21 
3222 
5157 


1774 
1303 
1209 
1313 
1773 
4917 
4190 
2461 
2674 
4940 
0325 
1055 
3137 
4204 
4207 
4209 
$212 
$133 


$134 
3135 
5136 
$137 
5138 


ADDR 


133Ғ 


337 
2139 


1Е5% 
LESA 
LESE 
1134 
11C4 
1072 
| РЕЗ 
18ER 
2130 
1Є31 
LA?C 
2161 


0700 
iF7A 
tED1 
1347 
1354 
2953 


ОАЕ: 
DAFO 
ОЗЕРА 
OBO? 
0202 
106с 
1283 
1903A 
1049 
{nas 
0134 
1209 
2166 
1965 
19С? 
1?CE 
1203 
2924 


2023 
2020 
2030 
2034 
2033 


+++; RS 


REFERENCES 


3219? 
4974 
3035 
4042 
2233 
2529 
2209 
4923 
2993 


5444 
3117 
0151 
0753 
2343 
0403 
1122 
5090 


1474 
4977 
3235 
0533 
3081 


3274 


1790 
1303 
1305 
1314 
1362 
9657 
0697 
4941 
2584 


3057 


0153 
4503 


4205 


3206 
4215 
2500 


203? 
4477 


4053 


22 ұғ < 


2612 
2616 


e^ 
23 


4430 


33 27 
0415 
0254 


3125 
3213 


0322 


2540 
3911 
2613 


л 


з?з? 


957? 


193? 


3135 
2561 


> 
"m 
т 


3255 


9297 


1953 


3133 
2573 


1462 


2707 
3927 


2544 


3757 3759 


0523 0833 


1225 
3153 
3501 


1307 
3132 


3735 


4074 


2716 2745 
3727. 


2709 2711 
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Є ++» 


3300 3304 2350 4021 4024 


0334 033? 9345 1135 


1342 1555 5 
2228 3212 3233. 


1312 
2127 
3?55 


4133 4147 


2770 
3994 


27 2 ae 


2774 
4003 
2733 2777 < 


2731 


‚ 2599 


4219 











+ IMSAI 2080 2K BASIC VER=4, З : 13: 23:23 15 АРА 1275 РАЈЕ 14 


+++ CRISS R ZF € RE NK E e | ^ 
"TAS ЗЕМ ADDR REFERENCES 


TEMP7 513? 203C 2470 2574 2535 3215 3923 
TEN 4999 LEGS 1895 1292 
TERMI 405? 1305 0199 1250 1292 
TERMM 4138 1291 0175 0345 1019? 1475 4275 4570 4421 8633 
TERM) 4155 1259 0230 0530 0642 1233 
TESTO 3108 1927 0321 0334 4072 4082 4117 4119 4121 4122 4141 4142 414% 4151 
° 4122 4213 4293 4296 4325» 
THENI. 4294 LESS 0555 
TOLIT SOSS {FSF 0744 1523 1925 
TOIT? 4110 1223 4112 
TREAD 4033 1325 4076 4030 53026 4070 4135 4145 4153 
TRNUS 516» 2172 
TRNDX 5153 2160 9160 1502 3014 
ТЕКМПҮ 5124 216Е 
TRNDZ 5165 2170 
TRUE 0945 ONJE 0934 09232 0997 
1371 3273 1432 3425? 
TSTCC 32 LANE 042? 0422 
ТТЕ 4325 1531 0629 1250 4325 4357 
РЕЧ 5152 0002 0120 0132 917? 4024 4110 4114 4253 4255 
° “ TVARI 5131 201C 0749 0772 0321 92223 0923 1156 1195 
TVAR2 51272 2020 0735 9315 
THO 4993 1232 2705 2217 
ULZRR 4351 1694 0557 0577 


; ~ ; VAL. 2175 1310 4971 22 * 
ма 32153 131C 3195 - 
емо. -- - | VAL2 3194 1324 2121 | 
4 | | VAR 4627 1804 0727 111? 1233 1252 1577 15345 1628 1670 3494 4219 4227 
| чак? . 4646 1ВЕ? 4642 


VARZ 4653 1374 4647 

VARS 4555 1ВЕ7 

НАТ. 4915 1054 1018 | : 
кзак 2927 17ЕВ 3919 

21 4245 i9FC 4240 | 
12 4254 1АОС 4249 5 
ZEROM 4708 1233 1848 1955 2372 2333 2245 3284 4715 


” 
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аа s E — да E Atoka Е is med e. P. 
a " Е as DR RS Р se : + 
й та A oe s пра и > ~ 
O3 ; : Е: = == ПАД ем سے‎ E м 
x а о 2 ES Eg 
ЗА SAI B K ` ` BAS per и ees ы Co pedem ame DIOE 
А РИБАР 5 8 Ко“ BASIC у удар ~ у м E 
ААат ГОМ. о но ims зо 
ә uu | ооо uc m 
š А 
astar | 3 Ж ке 
ке `, ем : 


>: 112 CM te 24 2« 2 7,6 xx $23 1.21 29 19 14 7 14 Моја v р 
АЕ ЗЕ ORAE S О ; 
:1Е001Е000Е1С8000000000000000 1148209 624C32D1C1148200604C3241CE37E23E31E ~ . 
: 1E093C0@00D55FB71600F2460016FF19D1C9D3033E17D3030100047E2F77BEC25F002F6D 3 съ 
: 1E005A2077069D25200F92100FF2922F821AFF5210009392280213282213266213268BE " 
: 1E2278002132F321326902121442277115C1D216C210608CD241C06908115C1DCD241C5A 5 
: 1E209600360321CA1ECD91193A7C21FE23C25629(DB2 3E602C2B309CDEA11C39E0932B3c ~ 
|E99BA007C213E3A3269212A8021F9CDD518CDC2O1A78B1CA509 1C511FD21EB79237111 ? | 
|ЕйЙ02002306231А7784231387С20500 7832ЕС21С121 4522 ТЕЕБВТСА! 2012 37ЕВВРАВА $ 
1Е00Ғ0001201С21Ғ01237ЕВ9рА1201С21Ғ012В2В545006004Ей97ЕВ7СА1А0147С02015 9 
1Ей10Ей01СС30601Е116005Е19С3Е600ЕВ7722ҒА21ЗАЕС21ҒЕй4САВ62004Ғ06002АЕАЕ5 10 
: IE212C0021545D0922FA21C11A771B2B7AB8CAA00 1 D23401 7BB9D2349011321FC2146EF v 
® :1Е014АййСр201СС3В6003265213270213С32672121052011ЕС217Е121323В7С2600176 72. 
:1Ей1680221401Е227Е2121ҒС21С320023Е023266213Е12Ср2719СбВуи1АС351023Е01Г6 7; 
:1E81869003266213E11CD2719C3B69090A4F3265621212E1ECD9119C39800214522AF 772256 /y 
1EO1A400FA212AF82177C3B6002AFB21EB2AFA21 7B955F 749С57С04710210520С0Е369;- 
1IE21C2092B36029CD8919C3B600AF326921326721328221327C212AF82177115C1D21C8 /c | 
котка тає ШОЮ раціо ее 0005. 
:1Ей1ҒЕй02А46321С320022461215Е160019226121346721В7С2В600Т7ЕВ7САЕ2й082239244- 
:1Ей21С007Е212323СҒЕ224290СГр0Е1АЛ11Ғ01Е1АВ7СА4Вй22А422207С624202Е5Ср041В56 
:1Е02340013146Е131467ЕЗС9С0041В131313С32402244220С30Е06СҒ110002ЕВ202А0С 22 
4j  :1E02582020219999223C20 EBB7CAB192CDC21A5059EB223A20223C20EBCFFE2CC2814C 
| *:1E0276020223CFCDC201A60692230C20214522CDOE1A7EB7CAF208D6034723EB2A3A29069 
. 31E029 409 EB7EBADADA402C2A40223 7EPBBBDADA48 2EB2A3C20EB7EBACABAQ2D2F208C337.. 
(»  :1E02B200BE22237E2BBBCABEO2D2F208110520CDED197E12132305C2CAQ2ESCDB8919F1 ` 
. :1Ей20000Е1С38402581600192323С3840221020207ЕВ7С2Е802С32Ей64АЕ3269213267р3 ~“ 
:1E@Q2EE@0@21CD8C1ACDC@1ACD681A2145227EB57CA941A237EB8DA1B03237E2BB9DA1B68 
7?)  :1E2030C02203C2941A2B226121AF326521C30EQ22B5E160019C3FBO2CD681A21442222E7 | ,- 
. e1E932A0gF621C3FA01CD681AFIFEFFC2A41AE1226121E1226321F1326521CS3FAQ01CDEF | 
- :1E0348908C1ACDCO1ACD681A3A6521F52A6321E52A6121E5S3EFFF5214522C3FBÜ2AFF9 
dp :1E8036690032FA21110520CFC38C233EFEI 2ESCD8919E1C365033AF421B7C2F 401 ЗАЕ 343 Jo · 
: 1Е83840021 В7ССЗ2 | 9СЗЕДЙ 1CD811ACAFCO 3FE2CCAD303FE3BCAD6903DS5ES116EI1DD7280 
|  :1ЕбЗА2 86 САРЕВЗЕ!1 СРВ 714Р1ЕБЕВЗАЕР52 | ЕЕЕ 7CABDG 3CDF38B23EBE1C3700311582GEF ` 
8» -:1E03C00201AB7CACE2347131A772305C2C 603EBE1C37003CDB319233E0132F421C369A5 
 :1EQ3DEOQ93DICDO 71 4ESCD3B1C216B2196E1DIFA7003473E20CA70903121395C3F390315 
:1EQ3FCOOCD681AC37B03CDDA41BEB221220EBFE3DC2A01A23CD0 71 4EB2A1220EBESCDC7 JS 
|»  :1Е041А00ЗЕ! ВЕВ224220Е7Е1116Е 1 р702А0 1ACDO 71 4E5211620F 721 ЗЕ|ЕЕЕЕ! 7EB 794. C 
- 3 1E043890CAA45Z2A4ES51131 1ED7CA4 70 4E1C 3A4B0 4DICDO 71 4E5211A20F 7E1CD681ACD7597 
3:1E9456000FF5211620EFFIF26F242A4220CD530ECA7BO AFA7BO AC3CF04244220CD532A 
39 - : 1EQ247A000 ECA7BÜOAFACF041182212A1220EBT7EA70EO 1B723CA9EQA7EBAC29 70423 7EFB 
:1Ей492002ВБВС29Ей4ҒҒ0Е0С05С28В0479ҒЕ0902401432822172237303Е5211420ЕҒ58 ^" 
e :1Ей4В000Е1Ғ7Е5211620ЕҒЕ!Е7ЕВ2463212ВЕБ72237323346221772334612177С3Ғ438 
140: 1EDACE22012A61215E169219 7ЕВТСААС1А22612 | ЕЕОЗСЕ 1 145 | ЕБ7СФСЕВДСЕЗА 1 320 7F 
У, 1Е2ДЕСОВВЕСФСЕВАЗА1 22023FE20CAFDOABEC 2CFOACF ТЕВ7С2СЕФАСЗЕАЙ 1СП8714Е5В6 _ 
-:1E850A083AF521321520FEE7C224052105201158201A3CA7CD241CC32805211620F795 ^... 
> . 11:2826й0ЕЛАГАРА? ТЕ 0АГЕЗОС2380ВаСаЗРЕЗЕО2ЗпоЗОСиС23РЕЗОС2А 785 ]9CODAAFSO ^ се 
--1150546002379817С5САА01АС1321420 7ВЕЕО2С22С05СП071 42242203АЕ521211520ВЕ99 
+ ТЕО56ДЯЙС?РАФ | АЕЕЕТСАС505211620СО5З0ЕЗА |! 426 1 FD27F05CD750FCA9E053A1420FQ ` 
^3. :1Ей58220Е602СА8005С0750ҒҒА9Е053414202Е604САҒ401С0752ҒҒАҒ4й1САҒАЙ12442Ү47 ` 
^ 11E25A22220116DIFD7CAEB022A4220114C1FD7CA47032A422011361EDTC2A2 1ACD3SBC ` HW. 


Y afi Tce е sapaqta РАЕН (Pt UL деко аб 
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кл d 
oe ve 906 4.» 


fe, 
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0158 v/304 (j 


0 


9% 9% 





+ 


í 1 
EX Ф 
- 
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sx : IEOSDCO003E20121ABEDA9406C20906783DFAED0547793DFAF3054F78B1C2CE050601629 ` 
^ ¿1EQgSFAQQ3Ala42CAGCAF4Q 1C39EQS0602C3FAQ506924C3FA@5CD4008C5DSGFFE3DCA296E 
1Ей61800063А6921В7САА01А21641рСр9119С3В60223С00714Ср681АЕ1р17ВВ72АЕ5С42 ` 
1206360021 ЕАДЗОбЕБЕЗСФАЙ! АЕ 7СЗЕ40 | ЕЕЕ 7СФАЙ 1 АСОДЕО6СЗЕ4Й 1115820 | А96САЕЗ 5 . 
1EQ965402A306545D7E3C133DC25A2613131A4F131A47C5287EB7CAB106ES2B2BA628DD ` 
кетеді павтвазтвв L27408 ВОВЕ но IS Sp 1F IM CFECEGECAS о а 
1EQ6900006D2960606FE2F3C4F28702B71FF03093609231A3CA71A77231385C2A6906A8& 
IEQ6AEQQC9OCDDA1BCD681AEB221220E52182214678B7CAAC1A23D1 7ТЕРЗВАС22966 TEQ8 
IEQ6CCODBBCAD9Q6FFOD25C2C596C3AC1A3A8221993C32822123ES5CD3F 1 BEB22422069.10 
1IEQ6EAQgEFEIES5CD592D211620F 7E1ESFFÜACDS530ECA180 7TE1ES 7EB73A4820F A149 72A 
1E0708909B7FA189721822135D1C3F401B7FAQUCO TEIFF0856235E237E326221237E32D5 
1E27260986121EBCD681A2461212322 7E21211620EF2A4229F 7СЗЕДЙ1 1169 | DESD7CACB 
1EQ74400C20 7D121052292242203600EBCFFE2 7CA5BO 7FE22C27E0 TAF 11052023 7EBO AC 
: 1E2762900CA6A071213C35F0 723EB36FECD89 | 9EBCFFE2CCA7D9 7FE3BC2 7EO 723CDAQ 5D /< 
1E07800008E5D52A42207EFE2C23CA920 ТЗЕЗЕСрр5 1 SCF 79B7FAB90 7CD1 BOBCFFE2C923 
1EO 79EQ9CAA50 7B7C2801A224229EIF7E1 TEFE2C23CA500 72BCD68 1АСЗЕДВ 1 CDFEQ 757 
1E27BC02224220C3AA9 7D1CDDA1B7BB7F2AQ 1 ACD3F KBD5CD681A3E013269213E3FCD35 
:1Ей70400051806001159202105207ЕВ7САҒ007041212323С3Е40732602178325820Е198 
є | :1Е07Ғ800С04Е0й6С3Ғ40111582006007ЕҒЕ22СА1Ғ08ҒЕ27СА1Ғ08ҒЕ2ССАЗ208В7СА202Е529 
:1Е0816000804121223СЕС230Е084Е227ЕВ9СА3008В7САВ014041212С23200822СҒ115863. 
+ 1E0834902978 1 2D1 EBE3DSCD4AE@ 6E1 C9CDD4 (В)57АВ7Е25008Ср3Ғ1ВЗЕЕЕ226821ЕЗА2 
:1Е 852660008 71 AESCDD2GAEBE1C1C9OCD3F1BC1C9CD4AGSBESD52AF 621 7ЕВ7С288882358 
: 1EQ8 7000 7E22F 621B7CAAB LAFF0311381FD7CAB8B082AF6215E162019C37098CF 79B7CA 
^:1EQ88EO00FAB308CDIBOBTEFE2CC2ACO82322F621E1F 7E1 TEFE2C23CA62082BC3B30 7CA 2. 7 
1IE2BACOOB7CA9BOBSC3BOIACDFEO 7 7TEFE2CCAC308B7C2ACO8C3CA982322F621C3A208EB 
1IE98CAQGQCDOT71AT7EFE2CC2A21A23CD3B1C110F20EB36D323772336C9EBCD2O 714CD68C5 
IEZ8EB0D1ACD3BICCDOF20C3F4013A6621FE02C29800CDBA1AC39101CD681A21DI1 | E96 
1E290600CD9119CDFC183A672187C298023265212A61215E16991923227E2111292299F 
: JEG92AQGQCDDDIO9EB3600C39800CD681A37E21327C21116C212174219608CD241CC3FAF3 32 
: JE2942008 1CDO 71 АСОЗВ1 СВТСААЙ 1AAFÜDAF321420116DIFE5D7CA6999E111A4CIFD715 
:1E0960090C2A01A3E01321420E5D1 79В7САВВОЙ9СЕВТСААЙ 1AFE2CC2 7D0923C 36A09CD72 
: 1Еб 9 7E90351BC2870923C37D090DC26AQ9CDSCIAFE2CC2979923C38B29CD351BC2A213 
: IEQ99COG 1ACDCO 1A7ECD811ACAAB2923C3A009CD681A3A1429B7C259093214522C3FBBA 
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: LEQIBAGOG2CDD41B7BB7F2F9S9CD3F 1GD5116F1FD7C2AZ | АСОО4 | 8742 6805 7CD3F1B23 25" 

: LEGODSOGFFF5D1EBCD68 І АЕВР! 1A4 704C5D5E5CD7912EIF7FFF8DIC1131AG5C2E4G9D! 

: IEQOF6SGC3F 401 7AF 6825 7CD3F1 BFFF5E3116F1FD7C2AG1ACDD41 B7BB7F 2AQ 1 ACD6825 
ey +: 1E@A14@G1ACD3F1BE1D5115820DS5EFFFFS8ESCD3BICEIDI4784121 3C5D5EFFFF8ESCD2C 


: IEGA32003B1CE1D1C1@5C2290AE1CDAEQ@6C3F401CDD41BF2AQ@1ACD3F1BE3F53EFF3252 
:1ЕйА50006821Ср0714Е1ЕЗр5С50313Е5ҒЕ52100200190В78В1С260й0АЕ10129290108000270 
à 1:1ЕйА6ЕйЙЕААЕЙАЕ509ЕВ2В2В782ЕС6015Е7А2ЕСЕй0772В73ЕБЕ1444рЕВЙ12В722В7309 
.  '  :]EO0A8CO2D12B722B732B36002B0B78B1C2920A3600 £1 TEFE2CC2A80A23C3A422ACD6888 
| : LEDAAAGG1AC3F401991B1B1A471BlA4F297CB7FACAZAC 2A3 1 АТОВ7СРФАЙ! АЕВ2 ВО)! 72AF 
' (8 :1E@gAC8002B73D12B722B73C39D@ADSFFFC562B5E7AB8DAAQ1AC2ES@QA 7BB9DAAQ@1A2BE3 
: ^ Љ1ЕДАЕ005 62852 Е ЗЕ505132100007881САР7АДА198ВСЗЕОДА 0 101 7А88рА4А8 1 АС2 98830 457 
` c1£0829420 7BB9DAAQ1A0929297D2FC6015F7C2FCE0@57E119FFFCC9EB2148200505CD04 
@  :1E0B2200331CCD8EOBUECOOFE2EC2310BCD9E0B3AA4C2081 AFFE4SC26 706D52140207192 . 
: О :1E0B402223F 72148202604CD331CD113CD8E0B3A4B204F3A4820B7F 25 DOBAF9 1 AF212D 
53. .]EQBSEO04C20 79864F23DS5EFD1214820 7EF618 77CDI DOE 79EBB7C8E521461EFA859BAB 
1 gy  :1E0B7C083DFSCD6COEF1E1C3730B3CF5CDE30EC3810BI АЕЕФВСАЗЕЙВЕЕФПСФАЙОВЗЕФ5 52. 
` . . :1E0B9A090890324820131AFE39DBFEGADOOD3A4920E6FÜCAB69B214C203AC39E9BCDCEOF 
. :1bE0BB80200BIAE60F214B22086772BT7TECE00 772B7ECE00 77C39EQBDSCDE990B215129F 715. 
d) | :1E0BD600CDE90BCDE92B114B202154202603CD950FD1C9214B20545D2603C3959F119C 
|  ..:1bE8BFA004B201AF60712CD750F3620F2040C362D23C20E0C3632233620C93A4820CD9D Žž - 
^«^ :l1EQ8CI200830FC2190C3E80E680326A21E53A4820CD832FFEO 1F2402C216A21342146090 55 _ 
29 | :1E0C3002 1EF23AUCCD6COEC3IFÜCCDE3UEC3IFÜCFEOSF22ADC214C20F 73A4820CD83CE . ` ` 
: 1ÓEQCAEQQGOFÜEO6CDAAQGCFEQAFA600C214C20EFC32AQ9CCD920CAF324820CDBB8B9C214C83 `> 
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